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1 . GENERAL  DESCRIPTION 


The  Aerodynamic  Accounting  Technique  Computer  Code  was 
developed  to  provide  a computerized,  systematic  method  to  eval- 
uate the  aerodynamic  effects  of  nuclear  damage  to  an  aircraft. 

In  addition,  it  can  be  used  to  evaluate  the  aerodynamic  character- 
istics of  an  undamaged  configuration  or  any  type  damage  that  can 
be  modeled  into  one  of  the  fourteen  damage  modes  provided  by  the 
program. 

The  computer  program  is  coded  in  the  Fortran  Extended  Version 
IV  language  to  operate  on  the  CDC  6600  computer  at  Wright-Patterson 
Air  Force  Base.  It  is  also  operational  on  General  Dynamics'  CDC 
CYBER  172  computer  as  procedure  R7F.  Four  primary  overlays  are 
used  by  the  program  to  keep  the  central  memory  core  requirements 
below  54,000  bytes.  The  main  program  controls  the  calling  of  the 
four  overlay  programs:  XINFT,  GF.OM,  SURVEY,  and  NUCDAM.  Figure 
1.1  shows  the  program  overlay  structure  and  the  arrangement  of 
the  57  subprograms  and  subroutines  that  comprise  the  AAT  computer 
code.  Program  XINPT  controls  the  reading  of  input  data  and  the 
printout  of  data  that  will  be  used  in  the  problem.  Program  GEOM 
computes  the  geometric  parameters  that  are  required  in  the  calcula- 
tions . Program  SURVEY  controls  the  calculation  of  aerodynamic 
characteristics  of  the  undamaged  aircraft,  and  program  NUCDAM 
determines  the  aerodynamic  effects  that  result  from  the  damage. 

The  third  primary  overlay,  SURVEY,  calls  four  secondary  overlay 
programs  VGEOM,  MCRIT,  AEROA,  and  AEROB.  These  programs  and 
subprograms  call  the  appropriate  subroutines  necessary  to  make 
the  computations. 

The  program  utilization  describes  the  inputs  that  are  required. 
Aerodynamic  characteristics  of  an  undamaged  configuration  can  be 
estimated  by  entering  only  the  basic  geometric  parameters  and  the 
survey  conditions.  Aircraft  damage  evaluation  is  optional.  The 
damage  input  data  are  contained  in  a separate  data  block  and  the 
effects  of  damage  are  determined  on  an  incremental  basis  and 
integrated  into  the  aerodynamics  of  the  undamaged  configuration. 


0 j. 
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SUBROUTINES: 


FICURE  1-1 


2.  AAT  COMPUTER  CODE  UTILIZATION 


The  first  step  in  preparing  program  input  is  to  determine 
how  to  best  represent  the  configuration  with  circular  bodies  and 
surfaces.  Components  such  as  the  fuselage,  canopy,  stores,  exter- 
nal fairings,  and  nacelles  are  represented  as  bodies,  while  the 
wing,  horizontal  tail,  vertical  tail,  pylons,  and  ventral  fins  are 
represented  as  surfaces.  A straight-wing  planform  is  represented 
by  one  panel,  and  a cranked-  or  complex-wing  planform  is  approxi- 
mated with  two  panels.  Up  to  seven  bodies  and  seven  surfaces  may 
be  used  to  represent  a configuration.  Figures  1 and  2 define  some 
of  the  geometric  parameters  required  to  define  the  individual 
bodies  and  surfaces. 

Input  requirements  for  the  Aerodynamic  Accounting  Technique 
computer  code  are  partially  determined  by  the  options  selected  by 
the  user.  The  input  format  is  divided  into  12  blocks  to  assist 
the  user  in  determining  his  input  requirements.  The  user  may 
decide  which  blocks  are  necessary  to  complete  his  problem  while  not 
concerning  himself  with  the  remaining  blocks.  The  user  determines 
which  data  blocks  are  required  from  the  following  descriptions: 

1.  General  Information.  This  block  contains  information  that 
the  AAT  program  needs  to  read  the  remainder  of  the  input  data. 
Indicators,  such  as  the  number  of  bodies  and  surfaces,  are  included, 
which  tell  the  program  which  blocks  of  data  will  follow.  Certain 
reference  data  and  geometric  dimensions  are  also  included.  This 
block  is  always  required. 

2.  Body  Geometry.  The  geometric  parameters  of  each  component 
which  is  represented  as  a body  is  contained  in  this  block.  A maxi- 
mum of  seven  bodies  may  be  used. 

3.  Surface  Geometry.  The  geometry  of  each  surface  is  repre- 
sented in  this  block.  A maximum  of  seven  panels  may  be  used,  with 
either  one  or  two  panels  for  the  main  wing, 

4.  Arbitrary  Airfoil.  This  block  is  used  to  describe  the 
camber  and  thickness  distribution  of  an  arbitrary  airfoil  section  if 
one  of  the  standard  sections  contained  internally  is  not  sufficient. 

5.  Variable  Sweep.  Aircraft  with  movable  wing  panels  such  as 
the  F-lll  and  B-l,  may  be  evaluated  at  any  selected  sweep  angle. 

This  block  of  data  is  required  to  describe  the  wing  movement. 

6.  Survey  Conditions.  This  block  of  data  contains  the  Mach 
number  and  Reynolds  number  conditions  at  which  the  analysis  will 
be  conducted. 
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Figure  2-1  Geometry  for  Closed  Bodies  and  Nacelles 
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(b)  Two-Panel  Wing  (Exposed  Area) 
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Figure  2-2  Surface  Geometry 


7.  Adjustment  Factors.  A table  of  adders  and  multipliers 
can  be  specified  in  this  block  to  correlate  the  AAT  predictions 
with  known  test  levels.  At  least  one  card  is  always  required. 

8.  Expansion  Provisions.  This  data  block  is  provided 
for  future  expansion. 

9.  Damage  Mode  Indicators.  Provisions  are  included  for 
fourteen  modes  of  nuclear  damage  in  the  AAT  program.  Seven  modes 
are  for  body  damage  and  seven  for  surface  damage.  This  block, 
which  requires  three  cards,  allows  the  user  to  select  only  those 
modes  that  are  desired. 

10.  Body  Damage  Parameters.  This  block  of  data  contains 
parameters  that  define  nuclear  damage  to  the  bodies.  It  is  re- 
quired only  if  a body  damage  mode  is  indicated  in  Block  number  9. 


11.  Surface  Damage  Parameters.  This  block  describes 
nuclear  damage  to  the  surfaces  and  is  similar  in  format  to  Block 
10.  It  is  required  only  if  a surface  damage  mode  is  indicated 
in  Block  9. 


12.  End  of  Problem.  Describes  how  one  may  end  the  problem 
or  change  the  input  and  run  new  problems. 

These  twelve  blocks  of  data  represent  a wide  range  of  options 
for  defining  the  geometry  and  the  manner  in  which  the  data  are 
handled.  Most  aircraft  analyses  will  not  require  all  blocks. 

It  should  be  noted  that  there  is  an  option  that  allows  the 
program  to  compute  the  values  of  certain  parameters  that  are  shown 
as  input.  These  items  are  indicated  with  an  asterisk  (*) . If  a 
zero  or  blank  is  input,  the  program  will  use  other  geometric  para- 
meters to  compute  these  values.  All  dimensions  are  input  in  either 
inches,  feet  or  meters,  except  for  the  roughness  factor,  which  is 
always  in  inches.  All  angles  are  in  degrees.  The  utilization 
specifies  one  of  the  following  formats  for  each  item  of  input: 

"I"  Format  Input  must  be  in  integer  form  and  right 
adjusted  in  the  specified  field. 

"F"  Format  Input  must  include  a decimal  and  may  be 
anywhere  within  the  specified  field. 

"A"  Format  Input  may  include  any  alphanumeric 
characters . 
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Data  Block  No.  1,  General  Information 


Data  Block  No.  1 requires  from  5 to  7 cards,  depending  on  the 
options  selected. 

CARD  1,1  - Title.  Enter  any  alphanumeric  characters  in  columns  1 
through  60  to  identify  each  problem.  These  characters  will  be 
printed  out  at  the  top  of  each  page  of  output  for  the  undamaged 
configuration. 

CARD  1.2  - Print-out  options.  This  card  should  normally  be  left 
blank;  however,  certain  seldom-used  data  and  subroutine  dumps 
will  be  printed  if  KPRINT(I)=1.  The  subroutine  dumps  are  normally 
for  diagnostic  purposes  and  can  be  used  only  in  conjunction  with 
the  programming  statements.  If  KPRINT(31)=1,  the  aerodynamic  data 
for  both  the  damaged  and  undamaged  configurations  will  be  printed 
at  constant  values  of  angle  of  attack. 


COLUMN 

1 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


SYMBOL 
KPRINT (1) 

(ID 
(12) 

(13) 

(14) 

(15) 

(16) 

(17) 

(18) 

(19) 

(20) 
(21) 
(22) 

(23) 

(24) 

(25) 

(26) 

(27) 

(28) 

(29) 

(30) 

(31) 


PRINT -OUT 

Airfoil  ordinates  and  pressure  distribution 
Dump  Subroutine  AER2 
I GEOM 

AALO 
CDL2 
BDRG 
CLBRK 
AERA 
WBAC 
CFEQ 
CDWW 
TAIL 
CDL1 
CDDR 
ADJUST 
CMOW 
CPZT 
SSET 
NUCDAM 
NUCDAM2 
NTRIM 
T WRITE 2 
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CARD  1.3  - Configuration  Definition  (15  Format). 


Column 

5 

10 

15 


20 


25 


30 

35 


39-40 


45 


50 


Symbol  Definition 

NPODS  Number  of  different  types  of  bodies. 

NPODS  <7. 

NPNLS  Number  of  surfaces  used  to  represent  the 

main  wing.  Must  be  1 or  2. 

NHT  Number  of  lifting  surfaces  other  than 

main  wing,  i.e.,  horizontal  tail  or  canard. 
Program  assumes  that  these  surfaces  are 
symmetric  with  respect  to  configuration 
centerline. 

NVT  Number  of  non-lifting  surface  types , i.e., 

vertical  tail,  ventral  fin,  or  pylon. 

For  example,  a twin  vertical  tail  should 
be  entered  as  1 surface  type;  symmetry 
will  be  indicated  in  Data  Block  No,  3. 
NPNLS +NHT+NVT  < 7 . 


ISWP  Variable -sweep  indicator. 

0 for  fixed  wing 

1 for  variable-sweep  wing 


IREF 


IWNG 


NAFO 


METER 


ITRIM 


Reference  angle-of-attack  indicator. 

0 reference  to  wing  root-chord  plane 

1 reference  to  fuselage  centerline 

WING-def inition  indicator. 

0 omit  card  1.6 

1 enter  reference  planform  area,  taper 
ratio,  and  leading-edge  sweep  on  Card  1.6 

See  note  number  1 at  end  of  input  instructions 
for  Data  Block  No.  1. 

Number  of  stations  at  which  thickness  and 
camber  are  to  be  defined  for  an  arbitral 
airfoil,  ^ 30,  If  NAFO  > 0,  Data  Block 

No.  4 must  be  input. 

Unit-system  indicator 

0 use  units  of  feet 

1 use  units  of  meters 

2 use  units  of  inches,  except  for  reference 
area,  planform  area,  wetted  areas,  Reynolds 
number,  and  altitude  which  are  in  feet. 

Trim  indicator. 

0 trim  configuration 

1 do  not  trim 
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CARD  1.4  - 

"F"  Format. 

Column 

Symbol 

Definition 

1-10 

SREF 

Reference  area. 

11-20 

CMAC* 

Reference  aerodynamic  chord. 

21-30 

XMAC* 

Location  for  leading-edge  of 

CMAC.  Does  not  change  with  sweep. 

31-40 

ZCG 

Height  of  moment  reference  point  relative 
to  wing  root-chord  plane. 

f 

41-50 

UPFUS 

Upsweep  angle  of  the  aft  fuselage  (deg) . 

For  use  with  transport-type  aircraft. 

51-60 

AOB 

Ratio  of  width  to  height  of  the  aft  fuse- 
lage in  the  upswept  region. 

CARD  1.5  - 

(F10  Format) 

• 

Co lumn 

Symbol 

Definition 

1-10 

ROUGHK 

Average  surface  roughness  height  for 
friction  drag,  (inches). 

11-20 

FMISC 

Miscellaneous  drag  factor  as  a percentage 
of  total  friction  and  form  drag. 

21-30 

TWIST 

Wing  twist  between  exposed  root  chord  and 
tip  chord.  Negative  for  washout  (wing-tip 
leading  edge  down). 

31-40 

CONCL 

Wing  conical  camber  design  lift  coefficient. 

CARD  1.6 

(F10  format). 

This  card  is  required  only  if  IWNG=1 

on  Card  1. 

3. 

Column 

Symbol 

Definition 

1-10 

SPLAN 

Wing  theoretical  planform  area. 

11-20 

TAPR 

Reference  wing  theoretical  taper  ratio. 

21-30 

SWP 

Reference  wing  leading-edge  sweep. 

*An  asterisk  beside  a symbol  indicates  that  the  value  of  that  item  will 
be  computed  internally  if  a blank  or  zero  is  input. 
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CARD  1.7  (F10  Format)  Elevon  Definition.  Required  if  NHT=0 
and  ITRIM=0.  This  card  defines  the  elevon,  which  will  be  used 
to  trim  the  configuration  if  there  is  no  horizontal  tail  or 


canard . 

Column 

Symbol 

Definition 

1-10 

CFOC 

Elevon  chord  length,  Ac/c 

11-20 

El 

Elevon  inboard  edge,  expressed  as  a frac 
tion  of  semi-span. 

21-30 

EO 

Elevon  outboard  edge,  expressed  as  a 
fraction  of  semi-span. 

Notes  pertaining  to  the  input  for  Data  Block  No.  1 are  as 
follows : 

1.  Card  1.6  is  used  to  input  the  wing  planform  area,  taper  ratio, 
and  leading-edge  sweep  when  the  user  desires  to  override  the 
internal  calculations  that  normally  compute  these  values  based 
on  other  wing  parameters.  Equations  used  to  make  these  calcu- 
lations are  presented  in  Section  2.1.3  of  Volume  I.  Card  1.6 
should  not  be  required  for  a single-panel  wing  or  for  a two- 
panel  wing  with  a moderate  amount  of  crank.  It  is  recommended  , 
however,  when  two  panels  are  used  to  represent  a wing  with  an 
extreme  amount  of  crank  or  a strake/wing  planform  where  the 
strake  is  highly  swept. 

2.  The  input  refeience  area  is  arbitrary  and  does  not  have  to 
be  related  to  the  theoretical  wing  planform  area. 
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Data  Block  No.  2,  Body  Geometry 

Thirteen  cards  are  used  to  input  the  name  and  12  parameters 
for  each  of  the  bodies.  The  name  that  is  input  on  Card  2.1  will 
be  used  in  the  printout  to  identify  the  various  components.  Data 
for  each  body  are  listed  vertically  in  the  input.  The  main  body 
(fuselage)  should  be  listed  to  the  extreme  left,  (Column  1-10), 
followed  next  by  other  bodies  with  zero  inlet  area.  Nacelle 
data  should  be  listed  last.  Up  to  seven  columns  for  seven  different 
body  types  can  be  input. 


Card  Format 

2.1  7A10 

2.2  7F10 

2.3 

2.4 

2.5 


2.6 

2.7 

2.8 

2.9 

2.10 
2.11 
2.12 

2.13  T 


Symbol 
BNAME(I) 
B0D(I, 1) 
(1,2) 

(1.3) 

(1.4) * 


(1.5) 

(1.6) 

(1.7) * 

(1.8) 

(1.9) 

(1.10) 
(1,11) 
(1,12) 


Definition 

Body  I name,  1=1,  NPODS 

Length 

Width 

Height 

Wetted  area  (total  for  all 
bodies  of  type  I). 
Interference  factor 
Number  of  bodies  of  type  I 
Maximum  cross-sectional  area 
Base  streamtube  area 
Nose  length 
Boattail  length 
Base  area  for  bluntness  drag 
Inlet  area. 


There  are  several  points  that  should  be  mentioned  pertaining 
to  Data  Block  No.  2, 


1.  The  name  assigned  to  each  body  will  be  used  in  the 
printout  of  results. 

2.  The  following  is  presented  as  a guide  for  determining  the 
interference  factor  (B0D(I,5)): 

=1.0  for  nacelles  and  external  stores  mounted  out  of 
the  local  velocity  field  o-f  the  wing  and  fuselage. 

=1.25  for  external  stores  mounted  symmetrically  on 
the  wing  tip. 

=1.3  for  nacelles  and  external  stores  if  mounted  in 
moderate  proximity  of  the  wing. 

=1.5  for  nacelles  and  external  stores  mounted  flush 
to  the  wing. 


1 


I 


i 
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(2.,  continued) 

The  same  variation  of  the  interference  factor  applies 
in  the  case  of  a nacelle  or  external  store  strut-mounted  to  or 
flush-mounted  on  the  fuselage. 

The  length,  width,  height,  cross-sectional  area,  etc. 
listed  for  each  body  type  describes  a single  body.  The  total 
number  of  bodies  of  each  type  must  also  be  specified  even  though 
they  may  be  paired  symmetrically  with  respect  to  the  centerline. 
One  exception  is  that  the  wetted  area  represents  the  total  for 
all  bodies  of  a particular  type. 

4.  Bodies  must  be  defined  for  1=1  to  NPODS.  The  main  body 
must  be  first,  closed  bodies  second,  and  bodies  with  inlet  area 
last. 


5.  When  fewer  than  seven  bodies  are  defined,  columns  to 
the  right  of  the  last  field  may  be  conveniently  used  to  identify 
the  parameter  listed  on  that  card. 

6.  The  interference  factor  for  the  fuselage  that  is  entered 
on  Card  2.6  is  overridden  by  internal  calculations  for  wing/body 
interference. 
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Data  Block  No.  3«  Surface  Geometry 

Thirteen  cards  are  used  to  input  the  name  and  12  parameters 
for  eac!\  of  the  surfaces.  The  format  for  the  surface  data  is  simi- 
lar to  that  for  the  bodies. 


Card 

3.1 

3.2 

3.3 

3.4 

3.5 

3.6 

3.7 

3.8 

3.9 

3.10 

3.11 

3.12 

3.13 


Format 

7A10 

7 (A3,7X) 
7F10 


Symbol 
SNAME(I) 
SUR(I, 1) 
(1,2) 
(1,3) 


(1,4) 

(1.7) * 

(1.8) 

(1.9) 

(1.10) 
(1,11) 
(1,12) 

(1.13) 

(1.14) 


Definition 

Surface  name  I,  1=1,  NPNLS+NHT+NVT 

Airfoil  section 

2-D  design  lift  coefficient 

Thickness  ratio,  (t/c)pj,js 

Leading-edge  sweep 

Total  surface (s)  wetted  area 

Exposed  root  chord 

Tip  chord 

Exposed  semi-span 

X-station  at  LE  of  exposed  root  chord 
Y-station  at  LE  of  exposed  root  chord 
Z-station  at  LE  of  exposed  root  chord 
Incidence  with  respect  to  main  body 


Several  points  that  should  be  noted  regarding  Data  Block 
No.  3 are: 


1.  The  name  assigned  to  each  surface  will  be  used  in  the 
• printout  of  results. 

J 2.  Surfaces  must  be  input  from  left  to  right  in  the  following 

1 order:  NPNLS  main  wing  panels,  NHT  lifting  surfaces,  and  finally, 

| NVT  non-lifting  surfaces. 

! 3.  Twenty  options  are  available  for  defining  the  airfoil 

section  type: 


INPUT 

AIRFOIL  TYPE* 

INPUT 

AIRFOIL  TYPE* 

63- 

63-YXX(6  Series) 

-62 

OOXX-62(4  Digit) 

64- 

64-YXX  " 

-63 

OOXX-63  " 

65- 

65-YXX  " 

-64 

OOXX-64  " 

66- 

66-YXX  " 

-65 

OOXX-65  " 

63A 

63AYXX(6A  Series) 

-33 

OOXX-33  " 

64A 

64AYXX  " 

-34 

OOXX-34  " 

65A 

65AYXX  " 

-35 

OOXX-35  " 

BIC 

Biconvex 

-93 

OOXX-93  " 

INPUT 

Arbitrary  Airfoil 

-94 

OOXX-94  " 

-95 

OOXX-95  " 

*Y=  Section  Camber  in  Tenths 
XX*  Section  t/c  in  % Z/C 
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(3. , continued) 

Any  of  these  sections  may  be  input  to  the  program  with  the 
identification  shown  above.  The  characters  must,  however,  be 
left-adjusted  in  the  data  field. 

An  arbitrary  section  may  be  input  for  any  surface  by  entering 
"INPUT".  This  will  be  used  for  both  wing  panels  if  NPNLS=2.  Use 
of  "INPUT"  requires  that  Data  Block  No.  4 be  included  and  that 
NAFO  > 0 on  Card  1.4.  Only  one  arbitrary  section  can  be  defined, 
but  this  section  can  be  used  for  any  of  the  surfaces  by  showing 
"INPUT"  on  Card  3.2. 

4.  Symmetry  is  controlled  in  the  following  manner:  NPNLS 
and  NHT  surfaces  are  automatically  assumed  to  have  counterparts 
on  the  opposite  side  of  the  fuselage.  The  NVT  non-lifting  surfaces 
are  assumed  to  be  single  surfaces  if  y=0  (SUR(I,12)).  If  y>  0, 
an  identical  surface  is  assumed  to  be  on  the  opposite  side. 
Irregardless  of  symmetry,  note  that  the  wetted  area  must  be  the 
total  value,  not  a s ingle, one-sided  value. 


Data  Block  No.  4.  Arbitrary  Airfoil 

Data  Block  No.  4 must  follow  immediately  after  Data  Block 
No.  3 if  NAPOO  on  Card  1.4, 


CARD  4 . 1 

- (F10  format) 

Column 

Symbol 

Definition 

1-10 

RLE 

Leading-edge  radius  divided  by  chord  (RLE/ 
CHORD),  at  reference  t/c  (TOCR). 

11-20 

TOCR 

Reference  t/c  of  AFT  (see  Card  4.4). 

21-30 

CLDR 

Reference  design  lift  coefficient  of 

AFC  (see  Card  4. 3) . 

31-40 

TECH 

Technology  P'actor  (See  Sections  5.1  and  6. 
of  Volume  I) 

=0.0  Conventional  airfoil 
=1.0  Advanced  supercritical 

wing  section 

CARD  4. .2 

Format 

Symbol 

Definition 

7F10 

AFX(I) 

Chordwise  stations  at  which  the  camber 
and  thickness  data  are  to  be  entered. 

Enter  as  x/c.  (1=1, NAFO) 

Card  4.2 

should  be  repeated  until  NAFO  (Card  1.4)  ordinates  have 

been  entered. 

CARD  4.3 

Format 

Symbol 

Definition 

7F10 

AFC(I) 

Camber  of  the  arbitrary  airfoil  section. 
Defined  by  Z/C  where  Z is  the  distance 

from  the  chord  line  to  the  camber  line. 
(I  =1,  NAFO) 

Card  4.3  should  be  repeated  in  the  same  format  as  Card  4.2  until 
NAFO  values  of  AFC(I)  have  been  input.  The  camber  ordinates  must 
correspond  with  the  chordwise  stations  on  Card  4.2. 
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CARD  4.4 

Format  Symbol  Definition 

7F10  AFT(l)  Thickness  of  the  arbitrary  airfoil  section. 

Defined  by  Z/C,  where  Z is  the  distance  from 
the  chord  line  to  the  upper  or  lower  surface 
on  an  uncambered  airfoil.  (I=1,NAF0) 


Card  4.4  should  be  repeated  in  the  same  format  as  Card  4.2  until 
NAFO  values  of  AFT (I)  have  been  input.  The  thickness  ordinates 
must  correspond  with  the  chordwise  stations  on  Card  4.2. 


Data  Block  No.  5..  Variable  Sweep 


Data  Block  No.  5 is  required  only  if  the  variable-sweep 
option  is  indicated  by  ISWP-1  on  Card  1.4.  This  Block  contains 
only  one  card.  Use  of  the  variable-sweep  option  does  not  change 
the  reference  area  or  the  reference  moment  center,  which  are  defined 
in. Data  Block  No.  1. 

CARD  5,1  - (F10  format’) 


Column 

Symbol 

Definition 

1-10 

XPIVOT 

X-location  of  wing  pivot 

11-20 

YPIVOT 

Y-location  of  wing  pivot 

21-30 

AFTSW 

Maximum  aft  sweep 

31-40 

AFTCB* 

Mean  aerodynamic  chord  of  movable  panel 
in  aft-sweep  position. 

41-50 

AFTOC* 

Thickness  ratio  (t/c)  of  movable  panel 
in  aft-sweep  position. 

51-60 

AFTAW* 

Wetted  area  of  movable  panel  in  aft- 
sweep  position. 
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Data  Block  No.  6.  Survey  Conditions 


This  data  block  is  always  required,  and  will  consist  of  from 
2 to  22  cards,  dependent  upon  the  number  of  survey  conditions  specified. 


CARD  6.1  - (15  format) 


Column 

Symbol 

Definition 

4-5 

NSURV 

Number  of  surveys  (sets  of  conditions) 
at  which  the  problem  is  to  be  run 
(NSURV < 20). 

9-10 

NCLAS 

Number  of  evenly  spaced  Cl  values  for 
which  data  will  be  computed  (NCLAS  ^ 21). 

CARD  6.2  - 

(F10  format) 

Column 

Symbol 

Definition 

1-10 

FMSURV(I) 

Mach  number 

11-20 

ALT (I) 

Altitude 

21-30 

CG(I) 

Position  for  trim  or  moment  reference. 
Measured  as  a fraction  of  the  mean  aerody- 
namic chord  (CMAC)  relative  to  leading-edge 
of  MAC. 

31-40 

SWPV(I) 

Leading-edge  sweep. 

41-50 

CLLO(I) 

Low  Cl 

51-60 

CLHI(I) 

High  CL 

Card  6.2  is  repeated  until  NSURV  conditions  have  been  specified. 
Several  items  that  may  prove  useful  to  the  user  are: 

1.  The  Reynolds  number  may  be  specified  instead  of  altitude 

by  entering  the  negative  value  of  RN/ft  divided  by  10°.  For  example, 
if  RN/ft=3.0  x 16^,  enter  -3.0  in  Column  11-20. 

2.  Model-scale  predictions  can  be  obtained  even  though  full- 
scale  geometric  data  are  loaded  in  the  program.  Enter  the  negative 
of  the  RN/ft  multiplied  by  model  scale  divided  by  10°.  For  example, 
if  RN/ft=3.0  x 1C)6  and  model  scale  desired  is  1/15,  enter  -0.2  in 
Columns  11-20  of  Card  6.2. 
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3.  The  low  0^  and  high  Cl  should  be  defined  in  conjunction 
with  NCLAS  so  that  the  calculated  values  of  Cl  will  be  rounded  off 
to  convenient  numbers.  For  example, 


INPUT 

NCLAS =21 
CLLO=0 . 0 
CLHI-1.0 


Data  Calculated  at 

CL  =0.00 
CL  =0.05 
CL  =0.10 
CL  =0.15 


CL  =1.00 


4.  If  low  Cl  and  high  Cl  are  left  blank,  the  program  will 
automatically  set  CLLO=0.0  and  CLHI=1.0, 
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Data  Block  No.  7.  Adjustment  Factors 


Data  Block  No.  7 must  always  be  entered  in  the  input;  it 
may,  however,  contain  only  one  card  which  indicates  that  no 
adjustments  will  be  made. 

CARD  7.1 

Write  "ADJUST"  beginning  in  Column  1 to  indicate  if  adjustment 
factors  are  to  be  applied  to  some  of  the  aerodynamic  parameters 
predicted  by  the  program.  If  no  adjustment  factors  are  to  be 
read  in,  write  "NO  ADJUSTMENTS"  beginning  in  Column  1 and  continue 
with  the  next  data  block. 

The  adjustment  options  allow  certain  predicted  items  in  the 
computer  procedure  to  be  adjusted  to  match  a desired  value.  Thus, 
the  predictions  can  be  adjusted  to  match  wind  tunnel  data, for  instance, 
so  that  perturbations  in  geometry  for  trade  studies  can  be  pre- 
dicted from  a firm  baseline.  An  aerodynamic  parameter  of  interest 
(aPRED)  can  be  adjusted  to  match  an  experimental  value  (AEXp)by  the 
equation 

AEXP  * (APREd)  • YM  + YA 

where  YM  is  an  input  correlation  multiplier  and  YA  is  an  adder. 

Each  is  a function  of  Mach  number  or  lift  coefficient. 


CARD  7.2  - (I  format) 

Set  a given  IVAL  indicator  equal  to  1 to  identify  it  as 
being  an  aerodynamic  parameter  to  be  adjusted. 


Column 

Symbol 

Definition 

1 

IVAL(l) 

Adjust  C^  as  a function  of 

Mach  number. 

2 

IVAL(2) 

Adjust  CdmisC  as  a funcfci-on 

of  Mach  number. 

3 

IVAL(3) 

Adjust  “lo  as  a function  of  Mach  number. 

4 

IVAL  (4) 

Adjust  Mcr  as  a function  of 

lift  coefficient. 

5 

IVAL(5) 

Adjust  Cp^  as  a function  of 

lift  coefficient. 

24-25 

NXVAR 

Number  of  Mach  values  in  the  table  of 

Mach  function  adjust  factors  (f=  15). 
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(CARD  7.2 

- (I  format),  continued) 

Column 

Symbol 

Definition 

29-30 

NADJ 

Number  of  parameters  to  be  adjusted  as 
a function  of  Mach  number  ( < 3). 

34-35 

NXCL 

Number  of  Cl  values  in  the  table  of  lift 

function  adjust 

factors  ( < 15) . 

39-40 

NADJ2 

Number  of  parameters  to  be  adjusted  as  a 
function  of  lift  coefficient  (<  2). 

CARD  7.3  - 

(7F10.0  format) 

Required  if  NADJI>0. 

Co lumn 

Symbol 

Definition 

1-10 

X(l) 

Mach  numbers  for  the  table  of  Mach  func- 
tion adjust  factors. 

11-20 

X(2) 

21-30 

X(3) 

31-40 

X(4) 

41-50 

X(5) 

51-60 

X(6) 

61-70 

X(7) 

Repeat  Card  7.3  until  NXVAR  values  of  X are  read  in. 
CARD  7.4  (6F10.0  format)  (NADJ  >» 0) 


Column 

Symbol 

Definition 

1-10 

YM(J=1, 

1=1) 

Multiplier  factor. 

11-20 

YA(J=1, 

1=1) 

Adder  factor. 

21-30 

YM(J=2, 

1=1) 

Multiplier  factor. 

31-40 

YA(J=2, 

1=1) 

Adder  factor. 

41-50 

YM(J=3, 

1=1) 

Multiplier  factor. 

51-60 

YA(J=3, 

1=1) 

Adder  factor. 

Repeat  Card 

7.4  until 

NXVAR 

values  are  read  in  (J=NXVAR)  for  each 

aerodynamic 

parameter 

■ to  be  adjusted  (1=1  to  NADJ). 
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CARD  7.5  - (7F10  format)  Required  if  NADJ2I>  0. 


Column 

1-10 

11-20 
21-30 
31-40 
41-50 
51-60 
61-70 
Repeat 
CARD  7 
Column 
1-10 
11-20 
21-30 
31-40 
41-50 
51-60 
Repeat 


Symbol  Definition 

XCL'<1)  Cl  values  for  the  table  of  lift  function 

adjust  factors. 

XCL(2) 

XCL(3) 

XCL(4) 

XCL(5) 

XCL(6) 

XCL(7 ) y 

Card  7.5  until  NXCL  values  of  XCL  are  read  in. 

6 - (6F10.0  format)  NADJ2  0. 

Symbol  Definition 

YM( J=1 , I=NXVAR+1)  Multiplier  factor. 

YA(J=1,  I=NXVAR+1)  Adder  factor. 

YM(J=2,  I-NXVAR+1)  Multiplier  factor. 

YA(J-2,  I=NXVAR+1)  Adder  factor. 

YM(J=3,  I=NXVAR+1)  Multiplier  factor. 

YA(J=3,  I=NXVAR+1)  Adder  factor. 

Card  7.6  until  NXCL  values  are  read  in  (J=NXCL). 
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Data  Block  No.  8,  Reserved  for  Expansion 


Data  Block  No.  8 represents  a section  of  the  input  common 
block  that  has  been  reserved  for  future  expansion.  The  user 
should  ignore  this  block. 


25 


Data  Block  No.  9,  Damage  Mode  Indicators 


If  no  damage  parameters  are  to  be  loaded,  skip  the  remaining 
input  and  go  to  "End  of  Problem"  instructions  in  Data  Block  No.  12. 

If  damage  parameters  are  to  be  loaded  for  either  a body  or  a surface, 
complete  the  following  three  cards. 


CARD  9.1 


Enter  "DAMAGE  CASES  FOLLOW"  beginning  in  Column  1. 

CARD  9.2 

Enter  any  alphanumeric  title  in  Columns  1 through  60.  This 
title  will  be  printed  at  the  top  of  each  page  of  output  related  to 
damage  calculations. 

CARD  9.3  - (I  format) 

This  card  allows  the  user  to  select  the  modes  of  damage  that 
will  be  used.  Set  IDAM(I)-1  if  mode  I input  are  to  be  entered 
in  Blocks  10  and  11. 


Column 

1 

2 

3 

4 

5 

6 
7 


Symbol 
IDAM(l) 
^ (2) 


(3) 

(4) 

(5) 

(6) 

^ (7) 


Definition 


Mode  1,  Roughness  on  bodies 

2,  Fwd-facing  steps  on  bodies 

3,  Aft-facing  steps  on  bodies 

4,  Holes  in  bodies 

5,  Surface  waviness  on  bodies 

6,  Protuberances  on  bodies 
V 7,  Nose  bluntness  on  bodies 


11 

12 

13 

14 


IDAM(ll) 
(12) 

(13) 

(14) 


Mode  11,  Roughness  on  surfaces 

12,  Fwd-facing  steps  on  surfaces 

13,  Aft-facing  steps  on  surfaces 
y 14,  Holes  in  surfaces 


(CARD  9.3-1  format),  continued 
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Data  Block  No.  10,  Body  Damage 


This  block  is  required  if  one  or  more  of  the  indicators 
IDAM(l)  through  IDAM(7)  equals  1,  otherwise,  it  can  be  omitted. 
Several  cards  are  required  to  define  the  body  damage  for  each 
mode  selected.  The  input  format  is  similar  to  that  in  Block  No.  2. 
If  only  part  of  the  bodies  are  damaged,  the  columns  for  the 
undamaged  bodies  are  to  be  left  blank.  The  space  to  the  right  of 
the  last  field  of  data  may  be  used  to  identify  the  damage  parameter 
on  that  card. 

CARD  10.1 


Enter  the  body  names  in  10-column  fields  and  in  the  same 
order  as  on  Card  2.1 


Body  roughness,  required  if  IDAM(1)*1, 


Card 

Format 

Symbol 

Definition 

10.2 

7F10 

DB0D(I, 1) 

Roughness  factor  on  body  I 

before 

damage  is  incurred. 

10.3 

(1,2) 

Roughness  factor  on  body  I 
damage  is  incurred. 

after 

10.4 

(1,3) 

x/1  where  damage  roughness 

starts 

10.5 

(1,4) 

x/1  where  damage  roughness 

ends 

10.6 

( (1,5) 

Fraction  of  area  affected  by  increased 
roughness  (includes  area  forward  and 

aft  of  damaged  region). 

Table  1 is  presented  as  an  aid  in  selecting  the  roughness 
factors  after  damage  has  been  incurred. 


Fwd-facing  steps,  required  if  IDAM(2)=1 

Card  Format  Symbol  Definition 

10.7  7F10  DB0D(I,11)  Number  of  fwd-facing  steps  on  body  I. 


10.8 

10.9 

10.10 
10.11 


(1,12)  Width  of  each  step. 


(1.13)  Height  of  each  step. 

(1.14)  x/1  at  first  step. 

Y (1,15)  x/1  at  last  step. 
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Aft-facing  steps,  required  if  IDAM(3)=1. 


Card 


Format  Symbol 


Definition 


10.12  7F10  DB0D(I,21)  Number  of  aft-facing  steps  on  body  I. 


10.13 


10.14 


10.15 


10.16 


(1.22)  Width  of  each  step. 

(1.23)  Height  of  each  step. 

(1.24)  x/1  at  first  step. 

(1.25)  x/1  at  last  step. 


Holes,  required  if  IDAM(4)=1. 


Card 


Format  Symbol 


Definition 


10.17 


10.18 


10.19 


10.20 

10.21 


10.22 


10.23 


10.24 


Card 


10.26 


10.27 


10.28 


10.29 


10.30 

10.31 


7F10  DB0D(I,31)  Total  no.  of  holes  in  body  I. 

(1.32)  Number  of  these  holes  over  wing. 

(1.33)  Length  of  each  hole. 

(1.34)  Width  of  each  hole. 

(1.35)  Depth  of  each  hole. 

(1.36)  x/1  where  first  hole  starts. 

(1.37)  x/1  where  last  hole  starts. 

u 1 (1,38)  Type  hole  1.0  Missing  Panel 

2.0  Caved-in  Panel 

Waviness,  required  if  IDAM(5)=1. 


Format  Symbol 


Definition 


10.25  7F10  DB0D(I,41)  Total  no.  of  waves  in  body  I. 


(1.42)  No.  of  these  waves  over  wing. 

(1.43)  Length  of  each  wave. 

(1.44)  Width  of  each  wave. 

(1.45)  Amplitude  of  each  wave. 

(1.46)  x/1  where  first  wave  starts. 

(1.47)  xjl  where  last  wave  starts. 


Card 

10.32 

10.33 

10.34 

10.35 
10.34 


Protuberances,  required  if  IDAM(6)=1. 

Format  Symbol  Definition 

7F10  DB0D(I,51)  No.  of  protuberances  on  body  I. 

(1.52)  Height  of  each  protuberance. 

(1.53)  Parasite  area  of  each  protuberance, 

Af. 

(1.54)  x/1  of  first  protuberance. 

Y Y (1,55)  x/1  of  last  protuberance. 

Bluntness,  required  if  IDAM(7)-1. 


Card  Fo  rma  t Symbol 


Definition 


10.37 


10.38 


7F10  DB0D(I,61)  Frontal  area  of  blunted  body  at  point 

of  damage.  For  example,  a fuselage 
with  the  radome  missing  might  have  a 
cross-section  area  of  10  sq  ft  at  the 
point  where  the  radome  is  detached. 

Y Y (1,62)  X/d  at  point  of  damage,  d is  the 

body  diameter  at  most  forward  body 
section  that  is  not  damaged  by  the 
bluntness.  1 is  the  remaining  nose 
length  forward  of  the  point  where  d 
is  measured.  For  example,  l/d=0.0 
for  a nose  section  that  is  flat  and 
l/d=0.5  for  a hemi-spherical  section. 


All  input  parameters  describe  damage  to  only  one  body 
of  type  I.  If  all  bodies  of  type  I have  sustained  the  damage 
described,  a negative  sign  on  the  first  parameter  in  each  mode 
of  damage  will  indicate  this.  For  example,  if  there  is  increased 
roughness  on  only  one  of  four  wing-mounted  pods,  DB0D(I,1)  through 
DB0D(I,5)  are  all  positive  values.  If  all  four  pods  are  damaged, 
this  is  indicated  by  entering  DB0D(I,1)  as  a negative  number. 


Tin  parasite  area  for  a protuberance  is  the  drag  divided 
by  the  dynamic  pressure  (D/q)  in  frees  tmarn  air  flow.  Effects  of 
local  boundary  layer  are  computed.  Units  for  Af  must  be  consistent 
with  those  selected  on  Card  1.3. 
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TABLE  1 TYPICAL  ROUGHNESS  VALUES 


Surface  or  Condition  of  Surface Roughness  k ~ Inch 

Average  aircraft  wing  or  tail  surface  .0006 

Average  fuselage,  nacelle  surface  .0012 

Alunimum  skin  with  blistered  paint  .0012 

Fiberglass /Enamel  with  blistered  paint  .0025 

Fiberglass /Thick  Coatings  and  Graphite  .0030 

with  blistered  paint 

Broken  Skin  .01 

Exposed  Honeycomb  _ \ 
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Data  Block  No.  11,  Surface  Damage 

This  block  is  required  if  one  or  more  of  the  indicators 
IDAM(ll)  through  IDAM(17)  equals  1,  otherwise,  it  can  be  omitted. 
The  format  is  identical  to  that  in  Data  Block  No.  10. 

CARD  11.1 


Enter 

the  surface 

names  in  10-column  fields  and  in  the  same 

order 

as  on 

Card  3.1 

Surface  Roughness, 

required  if  IDAM(11)*1 

Card 

Symbol 

Definition 

11.2 

DSUR(1, 1) 

Roughness  factor  on  surface  I before 

damage  is  incurred. 

11.3 

(1,2) 

Roughness  factor  on  surface  I after 
damage  is  incurred. 

11.4 

(1,3) 

x/c  where  damage  roughness  starts. 

11.5 

(1,4) 

x/c  where  damage  roughness  ends. 

11.6 

(1,5) 

Fraction  of  area  affected  by  increased 
roughness  (includes  area  forward  and  aft 
of  damaged  region) . 

11.7 

1 

' (1,6) 

0.0  for  Lower  Surface. 

1.0  for  Upper  Surface. 

Table  1 is  presented  as  an  aid  in  selecting  the  roughness 
factors  after  damage  has  been  incurred. 

Fwd-facing  steps,  required  if  IDAM(12)=1. 


Card 

Symbol 

Definition 

11.8 

DSUR(I, 11) 

Number  of  fwd-facing 

steps 

on  lower 

surface. 

11.9 

(1,12) 

Number  of  fwd-facing 
surface. 

steps 

on  upper 

11.10 

(1,13) 

Width  of  each  step. 

11.11 

(1,14) 

Height  of  each  step. 

11.12 

(1,15) 

x/c  at  first  step. 

11.13 

1 

( (1,16) 

x/c  at  last  step. 
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Aft-facing  steps,  required  if  IDAMCIS)®!. 


Card 

Symbol 

Definition 

i 

’ 11.14 

i 

DJ 

3UR(I, 21) 

Number  of  aft-facing  steps  on  lower 
surface. 

t 11.15 

(1,22) 

Number  of  aft-facing  steps  on  upper 
surface. 

■ 11.16 

(1,23) 

Width  of  each  step.  j 

11.17 

(1,24) 

Height  of  each  step. 

11.18 

(1,25) 

x/c  at  first  step. 

11.19 

1 

(1,26) 

x/c  at  last  step. 

Holes,  required  if 

IDAM(14)=1. 

Card 

Symbol 

Definition 

11.20 

DS1 

JR(I, 31) 

Number  of  holes  in  lower  surface. 

j 11.21 

(1,32) 

Number  of  holes  in  upper  surface. 

i 11.22 

(1,33) 

Length  of  each  hole. 

| 11.23 

(1,34) 

Width  of  each  hole. 

| 11.24 

(1,35) 

Depth  of  each  hole. 

i 11.25 

(1,36) 

x/c  where  first  hole  starts. 

| 11.26 

i 

(1,37) 

x/c  where  last  hole  starts. 

j 11.27 

j 

(1,38) 

Type  Hole  1.0  Missing  Panel 

2.0  Caved-in  Panel 

11.28 

' (1,39) 

Porosity  Factor  (must  have  holes  on 
both  upper  & lower  surface) 

] 

Waviness,  required 

if  IDAM(15)=1. 

Card 

Symbol 

Definition 

11.29 

DSUR(I,41) 

Number  of  waves  in  lower  surface. 

11.30 

(1,42) 

Number  of  waves  in  upper  surface. 

11.31 

(1,43) 

Length  of  each  wave. 

11.32 

V (1,44) 

Width  of  dach  wave. 
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Card 


Symbol 


Denif ition 


11.33  DSUR(I,45) 


11.34 


11.35  Y (1,47) 


(1,46) 


Amplitude  of  each  wave, 
x/c  where  first  wave  starts, 
x/c  where  last  wave  starts. 


Protuberances,  required  if  IDAM(16)=1 


Card 


Symbol 


Definition 


11.36  DSUR(I, 51) 


11.37 

11.38 

11.39 

11.40 


(1.52) 

(1.53) 

(1.54) 
V (1,55) 


Number  of  protuberances  on  Surface  I. 
Height  of  each  protuberance. 

Parasite  area  of  each  protuberance,  Af. 
x/c  of  first  protuberance, 
x/c  of  last  protuberance. 


Missing  Wing  Parts,  required  if  IDAM(17)S=1 
CARD  11.41 


Column  Symbol 
1-10  DWING(l) 


Definition 

Ac/c  fraction  of  wing  chord  that  is 
missing  from  leading  edge. 


11-20 


(2) 


Tli  ^ inboard  edge  of  missing  leading  edge, 
expressed  as  a fraction  of  semispan. 


21-30  (3) 

31-40  (4) 


Afyspan  of  missing  leading  edge,  express- 
ed as  a fraction  of  semispan. 

z/t  ratio  of  leading  edge  to  maximum  thick- 
ness. z represents  the  wing  thickness  at 
the  point  where  the  missing  leading-edge 
section  is  detached,  t is  the  wing  maximum 
thickness . 
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Column  Symbo 1 


Definition 


41-50  DWING(5) 


51-60 


V (6) 


CARD  11.42 


Column 

1-10 

11-20 

21-30 

31-40 


Symbol 
DWING(7  ) 

(8) 

(9) 

1 O-0) 


CARD  11.43 


Column  Symbol 


Comer  sharpness  factor  for  leading 
edge.  Enter  1.0  if  corners  on  leading 
edge  are  rounded.  Enter  2.0  if  comers 
on  leading  edge  are  sharp. 

Indicates  that  leading  edge  is  missing 
on: 

1.0,  left  side  only 

2.0,  right  side  only 

3.0,  both  sides 


Definition 


Ac/c,  fraction  of  wing  chord  that  is 
missing  from  trailing  edge. 

*7i, inboard  edge  of  missing  trailing  edge 
expressed  as  a fraction  of  sernispan. 

4??,  span  of  missing  trailing  edge,  ex- 
pressed as  a fraction  of  semispan. 

Indicates  that  trailing  edge  is  missing 
on: 

1.0,  left  side  only 

2.0,  right  side  only 

3.0,  both  sides 


Definition 


1-10  DWING(ll) 


AV,  fraction  of  semispan  that  is  missing 
from  the  left  wing  tip. 


11-20 


(12) 


A> 7,  right  wing  tip. 


21-30 


(13) 


Moment  arm  of  device  that  trims  rolling 
moment.  Entered  as  a fraction  of  wing 
semispan. 
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CARD  11.44 


» 

“dte: 


'} 

s 


I 


Column 

Symbol 

Definition 

1-10 

dw: 

[NG(14) 

The  first  NHT  surface  requires  input 
for  the  left  side  (Column  1-10)  and 

llr20 

(15) 

the  right  side  (Column  11-20).  Remain- 
ing surfaces  must  be  in  the  same  order 

21-30 

(16) 

as  those  on  Card  3.1.  If  NHT=0,  list 
NVT  surfaces  in  order  beginning  with 

31-40 

(17) 

Columns  1-10. 

41-50 

(18) 

51-60 

(19) 

61-70 

1 

' (20) 

There  are  severe.!  points  that  should  be  noted  regarding  the 
surface  damage  parameters: 

1.  All  input  parameters  describe  damage  to  only  one  surface 
(such  as  the  right  wing).  If  the  damage  is  symmetric  (left  wing 
also  damaged),  then  a negative  sign  should  be  used  on  the  first 
parameter  in  each  mode  of  damage.  The  first  parameter  will  be  zero 
in  some  cases.  When  this  happens,  a negative  sign  on  the  second 
parameter  will  indicate  symmetric  damage. 

2.  Porosity  factor  specifies  the  fraction  of  hole  area  that 
allows  air  to  flow  from  the  lower  to  the  upper  surface.  The  hole 
area  is  the  smaller  of  the  area  of  upper  surface . holes  and  lower 
surface  holes. 

3.  If  IDAM(17)=1,  Cards  11.42  through  11.45  must  all  be 
entered.  A zero  or  blank  should  be  entered  for  the  parameters  that 
are  not  applicable  to  the  damage  case  being  described. 

4.  The  parasite  area  for  a protuberance  is  the  drag  divided  by 
the  dynamic  pressure  (D/q)  in  freestream  air  flow.  Effects  of  local 
boundary  layer  are  computed.  Units  forAf  must  be  consistent  with 
those  selected  on  Card  1.3. 
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Data  Block  No.  12,  End  of  Problem 


Several  options  are  available  when  the  end  of  the  initial 
problem  is  attained.  The  user  may  either  end  the  problem,  add 
more  damage  cases,  or  change  the  basic  input  for  an  additional  run. 


CARD  12.1 


Option  1. 
Option  2. 

Option  3. 


Input  "END"  in  columns  1 through  3 and  the  problem 
will  be  terminated. 

Input  "DAMAGE  CASES  FOLLOW"  beginning  in  Column  1 
and  continue  input  with  Card  9.2  to  run  additional 
damage  cases. 

"CHANGE  INPUT"  beginning  in  Column  1 allows  the 
user  to  change  any  variable  in  the  basic  input 
(Data  Block  No.  1 through  7).  The  variable- 
location  is  its  position  in  the  input  common  block. 
This  location  is  given  in  Volume  II,  Section  4 of 
the  AAT  Computer  Code  Final  Report.  The  remaining 
cards  in  this  block  must  be  input. 


CARD  12.2 


Enter  any  alphanumeric  characters  in  Columns  1 through  60 
to  identify  the  new  problem.  This  title  will  replace  the  one 


> 

originally  entered  on  Card 

1.1  when  the  new  problem  is  run.  * 

CARD  12.3 

i 

i 

i 

Co lumn 

Format 

Symbol 

Definition  1 

4-5 

12 

M 

1: 

*« 

Number  of  integer  variables  to  be  changed. 

' 

9-10 

12 

N 

f 

Number  of  floating  point  variables  to  f 

be  changed.  s 

l 

CARD  12.4 

(Req  1 d 

if  M > 0) 

■ 

; 

!■  1 

: 

Column 

Format 

Symbol 

Definition 

, 

; 

1-5 

15 

M0(1) 

Location  of  1st  integer  variable. 

' 

r : 

; i 

6-10 

15 

IA(1) 

New  value  of  1st  integer  variable. 
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Column 


Format 


Definition 


i 


E 

?! 

\ 

* 


Symbol 


11-15 

15 

MO  (2) 

Location  of  2nd  integer  variable. 

16-20 

15 

IA(2) 

New  value  of  2nd  integer  variable. 

21-25 

15 

MO  (3) 

Location  of  3rd  integer  variable. 

26-30 

15 

IA(3) 

New  value  of  3rd  integer  variable. 

This  pattern 
pairs  of  variables 

is  repeated  for  6 variables  per  card,  until  M 
have  been  loaded. 

CARD  12. 5 

- (Req’d 

if  N > 0) 

Column 

Format 

Symbol 

Definition 

1-5 

15 

N0(1) 

Location  of  1st  floating  point 
variable. 

11-20 

F10 

AA(1) 

New  value  of  1st  floating  point 
variable. 

21-25 

15 

N0(2) 

Location  of  2nd  floating  point 
variable. 

31-40 

F10 

AA(2) 

New  value  of  2nd  floating  point 
variable . 

41-45 

15 

NO(3) 

Location  of  3rd  floating  point 
variable . 

51-60 

F10 

AA(3) 

New  value  of  3rd  floating  point 
variable . 

Card  12.5 

is  repeated  until 

N pairs  of  variables  have  been  loaded 

CARD  12.6 

Input  "END" 

in  columns 

1 through  3 to  terminate  problem  or 

omit  this  card  and  go  to  Card  12.1  to  run  additional  problems. 
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3 . SAMPLE  PROBLEMS 


This  section  contains  the  computer  printout  for  the  follow- 
ing.sample  problems: 

1.  F-16A 

2.  FB-111 

3.  C-141  with  damage 

The  output  is  self-explanatory,  except  that  in  the  C-141  problem 
it  should  be  noted  that  the  damage  imposed  is  strictly  hypothetical 
and  is  not  an  attempt  to  simulate  an  actual  damage  case.  Damage 
inputs  are  entered  for  each  of  the  fourteen  AAT  damage  modes  to 
demonstrate  the  flexibility  of  the  program. 

The  F-16A  and  FB-111  problems  presented  in  this  section 
provided  the  estimates  that  are  compared  with  data  in  Section  9, 
Volume  I of  this  report. 
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4 . PROGRAM  DESCRIPTION 


The  AAT  computer  code  is  a long  and  complex  program  that 
uses  many  variables  and  subroutines.  For  this  reason,  a programmer 
who  is  not  familiar  with  the  details  of  the  program  operation  may 
have  difficulty  in  making  modifications  and  additions.  This  pro- 
gram description  is  presented  to  aid  the  programmer  in  any  future 
development  work. 

4.1  PROGRAM  STRUCTURE 

Figure  1-1  shows  the  program  overlay  structure  and  the 
positions  of  the  59  subprograms  and  subroutines  that  comprise  the 
AAT  computer  code.  The  deck  must  be  arranged  as  indicated  by  this 
figure;  Overlay  (0,0)  with  its  program  and  subroutine  are  first, 
followed  by  Overlay  (1,0),  Overlay  (2,0),  Overlay  (3,0),  Overlay 
(3.1),  Overlay  (3,2),  Overlay  (3,3),  and  finally,  Overlay  (4,0). 

The  overlay  structure  was  devised  to  allow  a logical  path 
through  the  program  while  keeping  the  required  computer  central 
memory  core  to  a reasonable  amount.  Approximate  54,000  bites  are 
required  by  the  program. 


4.2  SUBROUTINE  DESCRIPTIONS 

This  section  contains  a description  of  each  subprogram  and 
subroutine  listed  in  alphabetical  order.  The  purpose  of  each  is 
briefly  discussed,  followed  by  the  statement  required  to  call  the 
subroutine  and  definitions  for  the  variables  used  in  the  CALL 
statement. 
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SUBROUTINE  DESCRIPTIONS 
(listed  in  alphabetical  order) 


1.  Subroutine  AALO  computes  the  zero-lift  angle  of  attack, 
which  is  dependent  upon  camber,  twist,  and  incidence. 

This  subroutine  is  called  with  the  statement 

CALL  AALO  (SPEED) 

where  speed  is  the  Mach  number.  The  computed  value  of  zero- 
lift  angle  is  entered  into  COMMON  OUTPUT'. 

2.  Subroutine  ACCR  computes  the  aerodynamic  center  at  low  lift 
and  at  stall  for  single  panel  wings.  The  subroutine  also 
obtains  the  lift  curve  slope  of  the  wing.  The  low  lift 
aerodynamic  center  is  obtained  through  use  of  triple- 
interpolation of  the  data  presented  in  Figures  4.1.4.2-22 
and  -27  in  the  DATCOM.  Other  subroutines  called  are:  TLNT, 
AERA,  and  LNTP.  This  subroutine  is  called  with  the  statement 

CALL  ACCR  (SPEED,  AR,  SWPLE,  SWPMC,  TR,  SPLAN,  TOC,  TW, 

FMCRO , XACR , CLAX,  XACS) 

Where  the  input  is 

SPEED  = Mach  number 
AR  = Aspect  ratio  of  exposed  wing 
SWPLE  = Leading-edge  sweep 
SWPMC  = Mid-chord  sweep 
TR  = Taper  ratio 
SPAN  -=  Exposed  planform  area 
TOC  = Thickness  ratio 
TW  = Type  airfoil  section  indicator 
FMCRO  = Zero-lift  critical  Mach  number  for  complete 
configuration 

and  the  output  is 

XACR  = Low  lift  aerodynamic  center  referenced  to  leading- 
edge  of  exposed  root  chord 
CLAX  = Lift-curve  slope  of  exposed  planfoin 
XACS  = Aerodynamic  center  at  stall 
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3. 


Subroutine  ADCL  computes  the  effect  of  camber  on  the  displace- 
ment of  the  drag  polar.  For  Mach  numbers  less  than  1.0  the 
lift  coefficient  for  minimum  profile  drag  is  computed;  for 
Mach  numbers  greater  than  or  equal  to  1.0,  the  lift  coefficient 
for  minimum  drag  is  computed.  This  subroutine  is  called  with  the 
statement 

CALL  ADCL (SPEED,  CLOPT) 

where  SPEED  is  the  Mach  number.  At  subsonic  speeds,  CLOPT  is 

the  Cl  for  minimum  profile  drag  at  supersonic  speeds  CLOPT  is 

the  polar  displacement  Ct  for  Cn  . . 

m m 

4.  Subroutine  AT 6 2 uses  the  altitude  and  equations  representing 

the  1962  U.S.  Standard  Atmosphere  to  calculate  the  unit  Reynolds 
number  over  Mach  number,  % . This  subroutine  is 

Length*  Mach 

called  with  the  statement 
CALL  AT  62  (ALT,  RNOMFT , IFT) 
where  ALT  = altitude 

RNOMFT  = Reynolds  number  divided  by  Mach  x Length 
IFT  = Indicator  to  specify  English  or  metric  units. 

If  IFT  = 0 units  are  in  feet 
If  IFT  = 1 units  are  in  meters 

5.  Subroutine  ADJUST  adjusts  an  aerodynamic  parameter,  y^,  to  a 
new  value,  y2,  by  the  equation 


y2  = yi  ‘ VM  + VA 

where  and  VA  are  correlation  multiplier  and  adder  factors 

determined  from  input.  These  factors  are  functions  of  either 
Mach  number  or  Cl*  Subroutine  LNTP  is  also  called.  This 
subroutine  is  called  with  the  statement 

CALL  ADJUST  (ID,  ID2,  XVAR,  YVAR) 

where  ID  = Parameter  identification  number  for  Mach  number  cases 
ID2  = Parameter  identification  number  for  Cl  cases 
XVAR  = Value  of  Mach  number  if  ID  greater  than  0,  or 
value  of  Cl  if  ID  = 0 and  ID2  greater  than  0 
YVAR  * Input  value  y^  is  changed  to  output  value  y2 
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Subroutine  AERA  calculates  the  angle  of  attack  for  a given 
untriramed  Cj^  condition.  For  supersonic  Mach  numbers 

a = CL/cLa  + ° LO 

For  subsonic  conditions  the  angle  of  attack  is  calculated  by 
one  of  the  three  different  methods  depending  on  whether  the 
wing  is  a high  aspect  ratio,  low  aspect  ratio  or  a cranked  plan 
form.  For  low-aspect-ratio  and  cranked  planform  the  effect 
of  vortex  lift  is  accounted  for  in  the  angle  of  attack  calcu- 
lations. Other  subroutines  called  are:  DLNT  and  LNTP.  This 
subroutine  is  called  with  the  statement 

CALL  AERA  (SPEED,  CL,  ALPHA) 

where  SPEED  = Mach  number  (I) 

CL  = Lift  coefficient  (I) 

ALPHA  = Angle  of  attack  (0) 


Program  AEROA  controls  the  sequence  of  calculations  required 
to  compute  minimum  drag  for  a given  Mach-altitude  or  Mach- 
Reynolds  number  condition  which  are  contained  in  COMMON 
OUTPUT. 

The  sequence  of  the  calling  of  subroutines  for  aerodynamic 
calculations  is  controlled  by  the  parameter  JPASS  which  is 
defined  by  program  SURVEY.  The  parameter  JPASS  is  used  to 
prevent  calling  certain  subroutines  on  repeat  passes  through 
AEROA  if  the  values  they  calculate  remains  fixed.  AEROA 
calls  subroutines  AT62,  DMIN,  FDRG,  LNTP  and  WDRG,  and 
AEROA  is  called  from  program  SURVEY  with  the  statement 

CALL  OVERLAY (4  HOVLY,  3,3) 
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Program  AEROB  controls  the  sequence  of  calculations  required 
to  compute  the  trimmed  lift,  drag,  moment,  and  angle  of  attack 
for  a given  set  of  conditions.  The  results  of  the  aerodynamic 
calculations  are  contained  in  COMMON  OUTPUT. 

The  subroutines  directly  called  from  program  AEROB  are  ADJUST, 
AERA,  AFTCD,  CDDR,  CDL1,  CDL2,  CDRG,  CLBRK,  CLWBT , CMOW,  TDRG, 
and  WBAC.  The  parameter  JPASS  is  used  to  prevent  calling 
certain  subroutines  on  repeat  passes  through  AEROB  if  the  value 
they  calculate  remains  fixed.  Program  AEROB  is  called  from 
program  SURVEY  with  the  statement 

CALL  OVERLAY (4  HOVLY , 3,4) 


Subroutine.  AER2  computes  the  lift-curve  slope  for  a wing 
surface  defined  by  the  data  in  COMMON  CALC.  The  lift-curve 
slope  is  computed  using  a modified  Polhamus  expression  in 
the  subsonic  range  which  is  extended  to  match  the  two- 
dimensional  linear- theory  value  at  high  supersonic  Mach 
numbers.  This  subroutine  is  called  with  the  statement 

CALL  AER2  (SPEED,  CLA) 

where  SPEED  = Mach  number 

CLA  = Computed  lift-curve  slope  (ACL  per  degree). 

Subroutine  AFTCD  computes  the  drag  increment  due  to  the 
fuselage  aft-end  upsweep  as  a function  of  angle  of  attack. 
Subroutine  DLNT  is  also  called.  This  subroutine  is  called 
with  the  statement 

CALL  AFTCD  (ALPHA,  CDAFT) 

where  ALPHA  = Angle  of  attack  of  the  wing 

CDAFT  = Drag  increment  due  to  aft-end  upsweep 


11.  Subroutine  BDRG  computes  the  base  drag  of  an  arbitrary  body. 
An  empirical  equation  is  used  to  determine  base  drag.  This 
subroutine  is  called  with  the  statement 


CALL  BDRG  (SPEED,  AB,  SREF,  CBD) 


where  SPEED 
AB 
SREF 
CDB 


Mach  number  ( x'* 

Base  area  (I) 

Reference  area  (I) 

Base  drag  coefficient  (0) 


12.  BLOCK  DATA  is  used  to  enter  in  tabular  form  the  data  from 

various  tables  and  charts  that  are  needed  by  other  subroutines 
in  the  program. 


13.  Subroutine  CDDR  calculates  the  drag  rise,  the  two  limit  Mach 

numbers,  and  the  lift-curve  slope  at  those  Mach  numbers.  The 
limit  Mach  numbers  and  associated  lift-curves  are  used  later 
in  subroutine  CDLl  to  define  the  polar  shape  in  the  transonic 
region.  CDDR  has  two  entry  points,  on  the  first  pass,  the 
constants  in  the  drag  rise  equation,  the  two  limit  Mach  numbers, 
and  their  associated  lift-curves  are  computed.  Only  the  drag 
rise  is  computed  in  subsequent  passes.  Other  subroutines  called 
are:  CLWBT , FDRG,  LNTP,  and  WDRG.  This  subroutine  is  called 
with  the  statement 


CALL  CDDR  (CL,  XMACH,  RNOFT , CDR) 

CALL  CDDRl 

where  CL  = Lift  coefficient 
XMACH  = Mach  number 

RNOFT  = Reynolds  number  per  unit  length 
CDR  = Drag  rise 

14.  Subroutine  CDLl  calculates  the  constants  which  are  used  by 
subroutine  CDL2  to  determine  the  drag  polar.  Other  sub- 
routines called  are:  ADCL,  DLNT,  KGIN,  and  LNTP.  This  sub- 
routine is  called  with  the  statement 


CALL  CDLl  (SPEED,  RNOFT,  FK,  DELCL,  PRIMEK,  AKD,  AKB) 


where  SPEED 
RNOFT 
FK 

DELCL 

PRIMEK 

AKD 

AKB 


Mach  number  (I) 

Reynolds  No.  per  unit  length  (I) 

Polar  shape  factor  below  polar  break  (0) 

Polar  lift  displacement  (0) 

Additional  drag  factor  for  drag  polar  above 
polar  break  (0) 

Theoretical  drag-due- to-lift  factor  (0) 
Separation  drag  factor  used  to  calculate  drag 
polar  above  separation  lift  coefficient  (0) 
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15.  Subroutine  CDL2  uses  the  polar  shape  factors  determined  by 
subroutine  CDL1  and  the  polar  break  and  separation  lift 
coefficients  determined  by  subroutine  CLBRK  to  compute  the 
drag  due  to  lift.  This  subroutine  is  called  with  the  state- 
ment 


CALL  CDL2  (SPEED,  CL,  AEROK,  DELCL,  PRIMEK,  AKD,  AKB,  CDL) 


where 


SPEED  = 
CL 

AEROK  = 
DELCL  = 
PRIMEK  = 

AKD 

AKB 

CDL 


Mach  number  (I) 

Lift  coefficient  (I) 

Polar  shape  factor  below  polar  break  (I) 
Polar  lift  displacement  (I) 

Additional  drag  factor  for  drag  polar  above 
polar  break  (I) 

Theoretical  drag-due- to-lift  factor  (I) 
Separation  drag  factor  (I) 

Drag  due  to  lift  (0) 


16.  Subroutine  CDRG  calculates  the  drag  increment  due  to  wing 

camber.  Wing  camber  causes  a lift  displacement  in  the  drag 
polar;  this  displacement  lift  increment  is  related  to  the 
difference  between  the  minimum  profile  drag  and  the  minimum 
drag  of  the  polar.  Subroutine  CDRG  is  called  with  the  state- 
ment 


CALL  CDRG  (SPEED,  AEROK,  DELCL,  CDC) 

where  SPEED  = Mach  number  (I) 

AEROK  = Polar  shape  factor  (I) 

DELCL  = Polar  lift  displacement  (I) 

CDC  * Camber  drag  (0) 

17.  Subroutine  CDWN  calculates  the  nose  wave  drag  of  body  and 
nacelle  components.  Subroutine  DLNT  is  also  called.  This 
subroutine  is  called  with  the  statement 


CALL  CDWN  (AMAX,  XLNOS,  RIN,  BETA,  CDW) 

where  AMAX  = Maximum  cross-sectional  area  (I) 

XLNOS  = Length  of  nose  (I) 

RIN  = Radius  of  inlet  area  (I) 

BETA  = s/m2  - 1 

CDW  - Wave  drag  of  component  based  on  maximum  cross- 
sectional  area  (0) 
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18. 


Subroutine  CDWT  calculates  the  boat  tail  wave  drag  of  body 
and  nacelle  components.  Subroutine  LNTP  is  also  used. 
Subroutine  CDWT  is  called  with  the  statement 


CALL  CDWT  (AMAX,  XLAFT,  REX,  BETA,  CDW) 


where 


AMAX  “ Maximum  cross-sectional  area  (I) 

XLAFT  = Length  of  boat tail  (I) 

REX  = Exit  or  base  area  (I) 

BETA  - 7m2  - 1 

CDW  ■*  Wave  drag  of  component  based  on  maximum 
cross-sectional  area  (0) 


19.  Subroutine  CDWW  calculates  the  wave  drag  for  component  repre- 
sented as  surfaces.  It  is  called  with  the  statement 

CALL  CDWW  (CDOSR) 

where  CDOSR  = wing  wave  drag  based  on  the  configuration 

reference  area 


20.  Subroutine  CFEQ  calculates  the  flat-plate  skin  friction  coeffi- 
cient using  the  White-Christoph  technique  for  turbulent  flow, 
the  Blasius  relation  for  laminar  flow,  and  a momentum  thickness 
matching  technique  for  partial  laminar- turbulent  flow.  This 
subroutine  is  called  with  the  statement 


CALL  CFEQ  (RNOFT,  ZMACH,  CBAR,  XTR,  CF) 


where  RNOFT  = 
ZMACH  = 
CBAR  - 
XTR 
CF 


Reynolds  number  per  unit  length 

Mach  number 

Length 

Distance  along  CBAR  where  transition  occurs 
Skin  friction  coefficient 


21.  Subroutine  CFK3  calculates  the  equivalent,  flat-plate  friction 
drag  coefficient  for  a component  with  nuclear  damage.  The 
surface  condition  can  be  described  by  defining  the  area  and 
the  corresponding  roughness  height  for  as  many  as  three  differ- 
ent regions  on  each  component.  It  is  called  with  the  statement 

CALL  CFK3  (LENGTH,  RNOFT,  X0L1,  X0L2,  Kl,  K2,  K3,  XMACH,  CF) 
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where  LENGTH 
RNOFT 
X0L1 
XOL2 
Kl 
K2 
K3 

XMACH 

CF 


Component  length 

Reynolds  number  per  unit  length 

Fraction  of  length  where  regions  1 and  2 merge 

Fraction  of  length  where  regions  2 and  3 merge 

Roughness  height  of  region  1 

Roughness  height  of  region  2 

Roughness  height  of  region  3 

Mach  number 

Equivalent  friction  coefficient 


22.  Subroutine  CLBRK  calculates  the  lift  coefficients  for  polar 
break,  separation  drag  onset,  and  maximum  lift.  This  sub- 
routine also  calculates  other  aerodynamic  parameters  used  in 
subroutine  AERA  to  compute  the  angle  of  attack  as  a funtion 
of  Cl.  This  subroutine  is  called  with  the  statement 


CALL  CLBRK  (SPEED,  RE,  RNOFT) 


where  SPEED 
RE 

RNOFT 


Mach  number  (I) 

Reynolds  number  parameter  (I) 
Reynolds  number /foot  (I) 


The  output,  which  is  entered  in  COMMON  CALC,  is  defined  by 


CLPB 

CLDB 

CLMAX  = 
ABRK 
AMAX  = 
DAMAX  “ 

DEL 

CLS 

ARLO 


Polar  break  lift  coefficient 

Separation  lift  coefficient 

Maximum  lift  coefficient 

Angle  of  attack  for  polar  break 

Angle  of  attack  at  CLMAX 

Increment  in  angle  of  attack  between  AMAX 

and  a linear  value  of  alpha  at  CLMAX 

Tail  lift  increment  to  CLMAX 

Lift  coefficient  where  CL  versus  alpha 

becomes  nonlinear 

Aspect  ratio  limit  between  low  AR  and  high 


23.  Subroutine  CLWBT  controls  the  sequence  of  calculations  that 
compute  the  total  wing-body- tail  lift  curve  slope,  zero  lift 
angle  of  attack,  and  the  factors  used  to  compute  drag  and 
lift  increments  due  to  a horizontal  tail  deflection.  Other 
subroutines  that  are  called  are  AALO,  ADJUST,  AER2,  and  TAI1. 
Output  is  entered  into  COMMON  CALC.  This  subroutine  is  called 
with  the  statement 

CALL  CLWBT  (SPEED) 

where  SPEED  * Mach  number 
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24.  Subroutine  CMOW  computes  the  moment  at  zero- lift  for  the 
wing-body  configuration.  Subroutine  TLNT  is  also  used. 

CMOW  is  called  with  the  statement 

CALL  CMOW  (SPEED,  CMO) 

where  SPEED  * Mach  number  (I) 

CMO  “ Wing-body  Cm 

25.  Subroutine  CPUOV  calculates  the  pressure  coefficient,  Cp  at 
x/c  for  an  infinite  sheared  wing.  The  Cp  is  obtained  by 
solving  Equations  (93)  and  (90)  in  the  Royal  Aero.  Soc. 

TDM-6312.  The  arrays  corresponding  to  S(l)(x),  s(2) (x) f s (3) (X) , 
S(4)(x),  and  s(5)(x)  in  Equation  (93)  are  obtained  from 

COMMON  CALC,  and  were  defined  in  subroutine  CPZT.  This 
subroutine  is  called  by  the  statement 

CALL  CPUOV  (S,  A,  SWP,  IV,  CPI,  CP,  XM) 


where  S 

* 

Sign  indicator  (+1  for  upper  surface  Cp,  and 
-1  for  lower  surface  Cp)  (I) 

•A 

s 

Angle  of  attack  (I) 

SWP 

sz 

Sweep  angle  (I) 

IV 

= 

Control  point,  x/c  ■ %(1  - cos  (IV  ))  (i) 

CPI 

= 

Incompressible  Cp  (0) 

CP 

= 

Compressible  value  of  Cp  (0) 

XM 

= 

Mach  number  (I) 

26.  Subroutine  CPZT  computes  the  critical  Mach  number  using  the 

local  Mach  number  normal  to  the  isobar  in  the  mid-span  region 
of  the  wing.  The  mid-chord  sweep  and  the  aspect  ratio  of  the 
wing  are  used  to  define  an  effective  isobar  sweep.  The  sub- 
routine obtains  the  airfoil  geometry  from  subroutine  SECT  and 
the  pressure  distribution  around  the  airfoil  from  subroutine 
CPUOV.  The  subroutine  then  uses  the  incompressible  pressure 
•at  the  crest  of  the  airfoil  and  isentropic  flow  relationships 
to  calculate  the  critical  Mach  number  on  the  wing.  The  pre- 
dicted wing  critical  Mach  number  is  prevented  from  exceeding 
the  critical  Mach  number  of  the  fuselage,  which  is  calculated 
as  a function  of  fuselage  fineness  ratio.  The  output,  which 
consists  of  a series  of  critical  Mach  number  and  lift  combi- 
nations, are  entered  into  COMMON  CALC.  Subroutines  CPUOV, 
LNTP,  and  SECT  are  also  used.  CPZT  is  called  with  the 
statement 
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CALL  CPZT  (ID,  XMACH,  TOC,  CLD,  SWEEP) 


where  ID 

XMACH 

TOC 

CLD 

SWEEP 


Type  identification  of  the  airfoil  (I) 

Mach  number  for  compressible  Cp  solutions  (I) 
(set  equal  to  0.6  in  Program  MCRIT) 

Airfoil  section  thickness  ratio  (I) 

Airfoil  section  camber  (I) 

Mid-chord  sweep  at  mid-semi-span  of  the 
wing  (I) 


27.  Subroutine  DINPT  is  called  only  if  damage  calculations  are 

to  be  made.  DINPT  reads  the  damage  input  and  prints  out  the 
values  as  a check  that  the  data  are  correctly  entered  in  the 
problem  input.  This  subroutine  is  called  with  the  statement 


CALL  OVERLAY  (4H0VLY,  1,  2) 


28.  Function  DLNT  is  a two-dimensional,  nth-order  Lagrangian 

interpolation  procedure.  Function  DLNT  also  uses  Subroutine 
LNTP.  It  is  called  with  the  statement 


CALL  DLNT  (XBAR,  YBAR,  X,  Y,  F,  NX,  NY,  NXMAX,  LOX,  LOY) 


where  XBAR 

YBAR 

X 

Y 

F 

NX 

NY 


NXMAX 
LOX,  LOY 


The  X value  at  which  a value  of  the 
function  is  to  be  interpolated  (I) 

The  Y value  at  which  a value  of  the 
function  is  to  be  interpolated  (I) 

The  array  of  X values  (I) 

The  array  of  Y va  ues  (I) 

The  values  of  the  function  f(x,y)  (I) 

The  size  of  the  X array  and  the  F array  in 
the  X direction  (I) 

The  size  of  the  Y array  and  the  F array  in 
the  Y direction  (I) 

The  dimension  of  the  F array  in  the  X 
direction  in  the  calling  routine  (I) 

Number  of  points  to  be  used  in  the  X and  Y 
directions,  respectively,  in  the  interpola- 
tions: 1 for  step,  2 for  linear,  3 for 
parabolic,  4 for  cubic,  etc.  (I) 


29.  Subroutine  DMIN  controls  the  sequence  of  calculations 

necessary  to  compute  minimum  drag.  It  uses  subroutines 
ADJUST,  BDRG,  FDRG,  and  WDRG.  It  is  called  with  the 
statement 
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CALL  DMIN  (SPEED,  RNOFT,  CDMIN) 

where  SPEED  * Mach  number  (I) 

RNOFT  * Reynolds  number  per  unit  length  (I) 
CDMIN  * Minimum  drag  (0) 


30.  Subroutine  E LEV ON  computes  the  lift,  moment,  and  drag 

effectiveness  of  a wing  trailing-edge  flap  control  surface 
(elevon).  The  elevon  is  used  as  a trim  surface  if  no 
horizontal  tail  or  canard  is  specified  i£  the  input  geometry. 

The  computed  parameters  for  the  elevon  are  stored  in  COMMON 
OUTPUT  and  latter  used  in  subroutine  TDRG  for  trim  calculations. 
Subroutine  ELEVON  uses  subroutine  DLNT  and  is  called  with 
the  statement 

CALL  ELEVON (SPEED) , where  SPEED  is  the  Mach  number 


31.  Subroutine  FDRG  calculates  friction,  form  and  interference 
drag  for  all  the  components  on  the  airplane.  All  output  is 
entered  into  COMMON  OUTPUT.  Other  subroutines  called  are 
CFEQ,  FFACT,  and  IFACT.  It  is  called  with  the  statement 

CALL  FDRG  (SPEED,  RNOFT) 

where  SPEED  * Mach  number 

RNOFT  = Reynolds  number  per  unit  length 

32.  Subroutine  FFACT  computes  the  form  factors  for  each  component. 
It  is  called  with  the  statement 


CALL  FFACT  (ID,  GEOM,  TYP,  CLD,  SPEED,  CRITM,  FF) 


where  ID 

Identification  for  bodies,  nacelles,  or 
surface  components 

GEOM 

* 

Fineness  ratio  for  bodies  and  nacelle  components 
or  thickness  ratio  for  surface  components 

TYP 

m 

Airfoil  type  identification  number 

CLD 

m 

Airfoil  camber 

SPEED 

m 

Mach  number 

CRITM 

m 

Critical  Mach  number  of  configuration 

FF 

m 

Form  factor 
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33.  Subroutine  EFFQ  calculates  the  ratio  of  local  dynamic  pressure 
to  frees tream  dynamic  pressure.  It  is  called  with  the 
statement 

CALL  EFFQ  (RNOFT,  XI,  XMACH,  HEIGHT,  QEFF) 

where  RNOFT  ■ Reynolds  number  per  unit  length 

XI  * Distance  from  nose  of  component  to  station 

at  which  local  dynamic  pressure  is  to  be 
calculated. 

XMACH  * Mach  number 

HEIGHT  * Distance  above  surface  at  which  local  dynamic 
pressure  is  to  be  calculated 
QEFF  * Local  to  frees tream  dynamic  pressure,  q/q 

34.  Program  GEOM  uses  input  to  compute  additional  geometric  para- 
meters that  are  required  by  other  subroutines.  The  values 
computed  for  individual  bodies  and  surfaces  are  entered  into 
COMMON  INPUT.  Computed  parameters  which  apply  to  the  total 
airplane  are  inserted  into  COMMON  CALC.  This  program  is  called 
with  the  statement 

CALL  OVERLAY  (4H0VLY,  2,  0) 

35.  Subroutine  IFACT  computes  the  interference  factors  for  each 
component.  It  also  uses  subroutine  DLNT  and  is  called  with 
the  statement 

CALL  IFACT  (ID,  PARM,  CRITM,  SPEED,  FI) 

where  ID  = Identification  or  bodies  or  surface 

components  (I) 

PARM  = Fuselage  Reynolds  number  for  bodies,  or 
maximum  thickness  sweep  for  surface 
components  (I) 

CRITM  = Critical  Mach  number  of  configuration  (I) 

SPEED  = Mach  number  (I) 

FI  = Interference  factor  (0) 

36.  Program  INPT  reads  the  geometry  of  the  undamaged  configuration 
and  the  aerodynamic  conditions  at  which  the  problem  is  to  be 
run.  It  is  called  with  the  statement 
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CALL  OVERLAY  (4H0VLY,  1,  1) 


Subroutine  KG IN  computes  the  polar  shape  factor  and  polar 
displacement  for  a drag  polar  with  drag  rise.  A least- 
squares,  second-degree  curve  is  fitted  to  the  drag  polar 
with  drag  rise.  This  is  needed  by  subroutine  CDL1  in  order 
to  interpolate  the  polar  shape  in  the  transonic  region  between 
Mli  and  Ml2*  It  uses  subroutines  CDDR  and  LSPCF.  It  is  called 
with  the  statement 

CALL  KG IN  (CLDB,  AKIN,  DECLIN,  SPEED,  AKOUT,  DCLOUT) 

where  CLDB  Upper  CL  limit  for  polar  calculation  (I) 

AKIN  Polar  shape  factor  without  drag  rise  (I) 

DECLIN  Polar  displacement  C without  drag  rise  (I) 

SPEED  Mach  number  (I) 

AKOUT  Equivalent  polar  shape  factor  with  drag  rise  (0) 
DCLOUT  Equivalent  polar  displacement  with  drag  rise  (0) 

Subroutine  LNTP  is  a one-dimensional,  nth-order  Lagrangian 
interpolation  procedure.  It  uses  no  other  subroutines  and  is 
called  with  the  statement 

CALL  LNTP  (XBAR,  YBAR,  X,  Y,  M,  NO) 


where  XBAR 

YBAR 

X 

Y 

M 

NO 


The  abscissa  value  at  which  an  ordinate  is 
to  be  interpolated  (I) 

The  interpolated  ordinate  (0) 

The  array  of  abscissas  (I) 

The  array  of  ordinates  (I) 

The  size  of  the  arrays  (I) 

The  number  of  points  to  be  used  in  the  inter- 
polation: N0=1  for  step,  N0=2  for  linear, 

N0=3  for  parabolic,  N0®4  for  cubic,  etc.  (I) 


Subroutine  LSPCF  is  a least  squares,  polynominal  curve  fit 
subroutine.  It  is  called  by  the  statement 

CALL  LSPCF  (X,  Y,  N,  MP,  SA,  RE,  SIGMA,  IT) 


where 


The  independent  variable  array 

The  dependent  variable  array 

The  number  of  points 

The  degree  of  polynomial  fit 

The  array  containing  the  coefficients 
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IT 


An  error  indicator 

■0  if  the  coefficients  were  found  correctly 
^0  if  the  coefficients  were  not  found  correctly 


SIGMA  An  unbiased  estimate  of  the  standard  deviation 
RE  The  array  containing  the  residuals 


! 40.  Program  MCRIT  constructs  a table  of  critical  Mach  number 

[ versus  CL  from  either  an  input  table  or  by  using  an  empirical 

' method.  It  uses  subroutines  ADJUST,  CPZT,  and  LNTP.  MCRIT 

is  called  with  the  statement 

f 

[ CALL  OVERLAY  (4H0VLY , 3,  2) 

f 

I 41.  Program  MRIT  (MAIN  PROGRAM  controls  the  logic  of  the  calling  of 

j ' the  four  primary  overlays.  The  lengths  of  the  principal  COMMON 

| ; blocks  used  in  all  four  overlays  are  also  specified  in  this 

program.  The  primary  overlays  are  called  with  the  following 
! statements. 

} j 

1 j OVERLAY (4H0VLY,  1,  0)  (INPT) 

I i OVERLAY (4H0VLY,  2,  0)  (GEOM) 

\>  | OVERLAY (4H0VLY,  3,  0)  (SURVEY) 

OVERLAY (4H0VLY,  4,  0) 

f 

42.  Subroutine  NTRIM  computes  the  lift  and  drag  increments  required 
to  trim  the  damaged  aircraft  pitching  moments.  It  also  com- 
putes the  rolling  moments  that  result  from  wing  or  tail  damage 

t and  makes  a rough  estimate  of  the  drag  that  results  from  trim- 

{ ming  these  moments.  NTRIM  is  called  from  subroutine  NUCDAM  by 

{ the  statement 

S 

i 

j - CALL  NTRIM(J) 

where  J = Number  of  the  survey  condition  at  which  data  are 
; being  evaluated 

43.  Program  NUCDAM  computes  the  effects  of  damage  on  minimum  drag, 
and  aquations  are  included  to  account  for  any  of  the  fourteen 
different  modes.  Data  describing  the  damage  are  stored  under 

1 the  variable  names  DB0D(I,J),  DSUR(I,J),  and  DWING(I).  These 

variables  are  included  in  COMMON  INPUT.  Minimum  drag  increments 

} 

1 ‘ \ 

i ' \ 
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computed  by  this  subroutine  are  stored  in  the  variable  DAMCD 
(I,J),  which  is  included  in  COMMON  NUCOUT.  It  calls  sub- 
routines WRITE,  NUCDAM  2,  NTRIM,  and  WRITE  2.  It  is  called 
with  the  statement 

CALL  OVERLAY  (4H0VLY,  4,  0) 

44.  Subroutine  NUCDAM2  computes  the  effects  of  damage  on  the  lift- 
curve  slope,  polar  shape  factor,  and  pitching  moment  curve. 

It  then  computes,  for  the  untrimmed  configuration,  the  lift, 
drag,  and  pitching  moment.  It  is  called  by  the  statement 

CALL  NUCDAM2 (J) 

where  J = Number  of  the  survey  condition  at  which  data 
are  being  evaluated. 

45.  Subroutine  RINPT  is  used  to  make  minor  changes  to  the  basic 
problem  input  after  the  initial  problem  has  been  run.  This 
provision  allows  additional  problems  to  be  run  with  ease  if 
changes  are  minor.  It  is  called  with  the  statement 

CALL  OVERLAY  (4H0VLY , 1,  3) 

46.  Subroutine  SECT  calculates  the  thickness  and  camber  airfoil 
ordinates  which  are  used  in  subroutine  CPZT  to  calculate  pres- 
sure distributions.  SECT  can  calculate  the  section  data  for 
the  standard  NACA  6-series  and  4-digit  airfoils  and  the 
boconvex  airfoil.  The  subroutine  can  also  obtain  the  airfoil 
ordinates  at  the  control  points,  x/c,  needed  for  pressure 
solutions  by  interpolation  on  a table  of  input  ordinates.  It 
uses  subroutine  LNTP  and  is  called  by  the  statement 

CALL  SECT  (ID,  TOC,  CLD) 

where  ID  = Airfoil  section  identification  number  (I) 

TOC  = Airfoil  thickness  ratio  (I) 

CLD  = Airfoil  camber  (I) 

47.  Subroutine  SETUP  places  initial  values  of  0.0  in  the  input  and 
geometry  common  blocks.  This  is  done  to  prevent  random  data 
from  being  used  in  program  calculations  if  input  data  does  not 
specify  each  value.  It  is  called  with  the  statement 

CALL  SETUP 
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48. 
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Program  SURVEY  controls  the  sequence  of  calculations  to  produce 
a lift,  moment  and  drag  variation  for  each  high-speed  survey 
condition  specified  by  the  input. 

For  variable  sweep  configurations  the  program  will  first  call 
program  VGEOM  with  the  wing  leading-edge  sweep  set  at  the  for- 
ward position  and  then  recall  program  VGEOM  with  the  sweep 
set  at  the  aft  position.  This  is  done  in  order  to  setup  pro- 
gram VGEOM  for  geometry  calculations  at  any  arbitrary  sweep 
position.  SURVEY  then  enters  a DO  LOOP  where  the  high  sweep 
survey  conditions  are  set  up.  SURVEY  calls  VGEOM  and  MCRIT 
to  recalculate  the  geometry  and  the  configuration  critical 
Mach  number  each  time  the  leading- edge  sweep  is  changed  in  a 
survey.  SURVEY  then  enters  an  inner  DO  LOOP  where  a sequence 
of  untrimmed  Cl  are  generated  and  programs  AEROA  and  AEROB  are 
called  to  obtain  the  trimmed  lift,  moment  and  drag,  SURVEY 
then  prints  out  the  aerodynamic  results.  It  is  called  with  the 
statement 

CALL  OVERLAY  (4H0VLY , 3,  0) 


The  following  secondary  overlays  are  called  from  SURVEY: 
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OVERLAY (4HOVLY,  3,  1) 
OVERLAY (4H0VLY,  3,  2) 

OVERLAY (4HOVLY,  3,  3) 
OVERLAY C4H0VLY,  3,  4) 


(VGEOM) 

(MCRIT) 

(AEROA) 

(AEROB) 


Subroutine  TAIL  computes  the  lift  curve  slope  contribution 
of  the  tail  along  with  factors  used  to  compute  lift  and  drag 
increments  due  to  a horizontal  tail  deflection.  These  factors 
are  computed  by  first  solving  for  the  downwash,  dynamic- pres sure, 
exposed  area  lift-curve  slope,  carry-over  lift  factors  and 
induced  drag  for  the  tail.  Subroutines  AER2  and  LNTP  are  also 
used.  The  output  is  entered  in  COMMON  CALC.  TAIL  is  called 
with  the  statement 


CALL  TAIL  (SPEED) 


where  SPEED 

= 

Mach  number  (I) 

CUT 

= 

Lift-curve  slope  contribution  of  the  tail  (0) 

A 

ss 

Trim  drag  factor  (0) 

B 

= 

Trim  drag  factor  (0) 

AOH 

ss 

Angle  of  zero  lift  of  the  tail  (0) 

CLDH 

a 

Change  in  lift  due  to  tail  deflection  factor 

DEDA 

= 

Change  in  downwash  per  change  in  angle  of 
attack  (0) 

50. 
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Subroutine  TDRG  calculates  moment  using  the  wing-body  Cm 
and  aerodynamic  center  and  the  tail  lift  and  moment  arm.° 
The  moment  is  calculated  at  zero  horizontal  tail  setting. 
The  tail  deflection  required  to  trim  and  the  resulting  lift 
and  drag  increments  are  also  computed.  TDRG  is  called  with 
the  statement 

GALL  TDRG  (DCLT,  DCDT) 


51. 


Where  DCLT  = Increment  in  lift  due  to  trim 
DCDT  Increment  in  drag  due  to  trim 

Subroutine  TLNT  is  a triple-linear  interpolation  procedure. 
It  uses  subroutines  DLNT  and  LNTP.  It  is  called  with  the 
statement 


CALL  TLNT  (XBAR,  YEAR,  ZBAR,  FEAR,  X,  Y,  Z,  F,  NX,  NY,  NZ, 
NXMAX,  NYMAX) 


\ 

■/ 


i 


where 


XBAR 

YEAR 

ZBAR 

FBAR 

X 

Y 

Z 

F 

NX 

NY 

NZ 

NXMAX 

NYMAX 


■ The  X value  at  which  a value  of  the  function 
is  to  be  interpolated  (I) 

= The  Y value  at  which  a value  of  the  function 
is  to  be  interpolated  (I) 

= The  Z value  at  which  a value  of  the  function 
is  to  be  interpolated  (I) 

= The  interpolated  value  of  the  function  F(X,Y,X) 

(I) 

= The  array  of  X values  (I) 

* The  array  of  Y values  (I) 

= The  array  of  Z values  (I) 

= The  three-dimension  array  F values  (I) 

- The  size  of  the  X array  and  the  F array  in 
the  X direction  (I) 

= The  size  of  the  Y array  and  the  F array  in 
the  Y direction  (I) 

= The  size  of  the  Z array  and  the  F array  in 
the  Z direction  (I) 

= The  dimension  of  the  F array  in  the  X direction 
in  the  calling  routine  (I) 

= The  dimension  of  the  F array  in  the  Y direction 
in  the  calling  routine  (I) 
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52.  Program  VGEOM  computes  the  geometry  parameters  that  vary 

with  wing  sweep  for  variable-sweep  configurations.  The  program 
is  first  called  by  program  SURVEY  at  the  forward  and  most  aft 
sweep  positions  in  order  to  set  up  VGEOM  for  any  arbitrary 
sweep  calculation.  It  is  called  with  the  statement 

CALL  OVERLAY  (4H0VLY,  3,  1) 

53.  Subroutine  WBAC  computes  the  wing-body  aerodynamic  center  loca- 
tion. It  first  calculates  the  aerodynamic  center  of  the  wing 
carry-over  lift  on  the  body  and  the  aerodynamic  center  of  the 
forebody.  A composite  aerodynamic  center  is  then  computed. 
Subroutines  ACCR,  DLNT  and  LNTP  are  used.  It  is  called  with 
the  statement 

CALL  WBAC  (SPEED,  XACR) 

where  SPEED  = Mach  number  (I) 

XACR  = Aerodynamic  center  of  the  wing-body  configu- 
ration reference  to  the  leading  edge  of  the 
exposed  root  chord 

54.  Subroutine  WDRG  calculates  the  wave  drag  for  all  the  components 
on  the  airplane  and  enters  the  results  into  COMMON  OUTPUT.  The 
following  subroutines  are  used:  CDWH,  CDWT,  and  CDWW.  It  is 
called  with  the  statement 

CALL  WDRG  (FMACH) 

where  FMACH  = Mach  number 

55.  Subroutine  WRITE  prints  the  minimum  drag  increments  calculated 

by  subroutine  NUCDAM.  The  total  drag  increment  on  each  component 
is  shown  and  the  total  increment  due  to  each  mode  of  damage  is 
also  shown.  It  is  called  from  subroutine  NUCDAM  with  the 
statement 

CALL  WRITE  (J) 

Where  J = Number  of  the  survey  condition  at  which  data  are 
being  evaluated. 

56.  Subroutine  WRITE2  prints  a summary  of  the  aerodynamic  data  that 
are  calculated  by  the  AAT  computer  code.  Lift  and  drag  data 
are  shown  for  both  the  undamaged  and  damaged  configurations. 

It  is  called  from  subroutine  NUCDAM  by  the  statement 
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CALL  WRITE2  (J) 

where  J * Number  of  the  survey  condition  at  which  data  are 
being  evaluated. 

57.  Subroutine  XINPT  reads  the  card  in  the  input  deck  that  directs 
the  program  to  evaluate  a damaged  configuration,  change  para- 
meters in  the  basic  input,  or  end  the  problem.  XINPT  interprets 
the  message  on  the  card  and  calls  the  appropriate  subroutines 
required  to  comply  with  the  directive.  It  is  called  with  the 
statement 

CALL  OVERLAY  (4H0VLY , 1,  0) 
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4.3  COMMON  BLOCK  DESCRIPTIONS 


Common  blocks  in  the  AAT  procedure  have  been  utilized  in  a 
manner  that  helps  the  programmer  keep  track  of  variables  that 
are  used.  Most  of  the  data  used  internally  are  contained  in  one 
of  the  follow5-ng  common  blocks : 

1.  Common  block  INPUT  contains  all  input  data. 

2.  Common  block  CALC  contains  geometric  parameters  that  are 
computed  by  the  program. 

3.  Common  block  OUTPUT  contains  the  aerodynamic  parameters 
that  are  computed  by  the  program. 

4.  Common  block  NUCOUT  contains  the  aerodynamic  data  that 
are  computed  for  the  damaged  configuration. 

Table  4-1  lists  the  name  of  each  variable  in  the  common  block 
INPUT  as  it  is  used  in  the  programming  statements.  The  position  of 
each  variable  within  the  common  block  is  indicated,  and  a brief 
description  of  each  variable  is  given.  Similar  information  for  the 
OUTPUT,  CALC,  and  NUCOUT  common  blocks  is  given  in  Tables  4-2 
through  4-4. 
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TABLE  1 

Variables  in  Common  Block  Input: 


A^ X VARIABLE  NAME 

Input  Data  Block  #1  (General 


(1) 

NBODYS 

(2) 

NNAC 

(3) 

NPNLS 

(4) 

NHT 

(5) 

NVT 

(6) 

ISWP 

(7) 

IREF 

(8) 

IWNG 

(9) 

NAFO 

(10) 

METER 

(11) 

SREF 

(12) 

CMAC** 

(13) 

XMAC** 

(14) 

ZCG 

(15) 

TWIST 

(16) 

ROUGHK 

(17) 

FWISC 

(18) 

NPODS 

(19) 

SPLAN 

(20) 

TAPR 

(21) 

SWP 

(22) 

IT  RIM 

(23) 

RLE 

(24) 

TOCR 

(25) 

CLDR 

(26) 

TECH 

(27) 

CONCL 

(28) 

UPFUS 

(29) 

AOB 

DESCRIPTION 

Information) 

Number  of  Bodies 
Number  of  Nacelles 
Number  of  Panels  on  Main  Wing 
Number  of  other  lifting  surfaces 
Number  of  Non-Lifting  Surfaces 
Indicator  for  Sweep 
Indicator  for  Reference  Alpha 
Indicator  for  Wing  Planform  Definition 
Number  of  airfoil  ordinates 
Indicator  for  metric  units 
Reference  Area 
Reference  Aerodynamic  chord 
:-Station  of  leading  edge  of  CMAC 
Z-Station  of  CG 
Wing  twist 

Surface  Roughness  Height  (inches) 

Percent  friction  drag  for  misc.  items 

NBODYS  + NNAC 

Planform  Area 

Tip  chord/root  chord 

Wing  leading-edge  sweep 

Trim  Indicator 

Leading-Edge  radius 

Reference  t/c  for  input  airfoil  (NAPO  > 0) 

Reference  CLD  for  input  airfoil  (NAFO  > 0) 

Technology  Factor 

Conical  Camber 

Aft  Fuselage  Upsweep  Angle 

Aft  Fuselage  width-to-height  ratio 
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w- 


ft. 


M _I 

(29+1) 

(36+1) 

(43+1) 

(50+1) 

(57+1) 

(64+1) 

(71+1) 

(78+1) 

(85+1) 

(92+1) 

(99+1) 

(106+1) 

(113+1) 

(120+1) 

(127+1) 

(134+1) 

I 

I 

l 

(169+1) 

(176+1) 


(Table  1 

VARIABLE  NAME 

Input  Data  Block 
BNAME  (1) 

BOD  (1,1) 

(1.2) 

(1.3) 

(1.4) ** 

(1.5) 

(1.6) 

(1.7) ** 

(1.8) 

(1.9) 

(1. 10) 

(1.11) 

1,12) 

(1.13) 

(1.14) * 

(1.15) 


Continued) 

DESCRIPTION 
#2  (Body  Geometry) 

Name  o £ Body  I,  I“l,  7 

Length 

Width 

Height 

Wetted  area,  Total  for  Type  I Bodies 

Interference  Factor 

Number  of  bodies  of  Type  1 

Maximum  cross-sectional  area 

Base  streamtube  area 

Nose  length 

Boattall  length 

Base  drag  area 

Inlet  area 

Vacant 

Fineness  ratio 

Vacant  (Reserved  for  future  expansion) 


V (1.20)  f 

(Input  Data  Block  #3  (Surface  Geometry) 
SNAME(I)  Name  of  surface  I,  I»l,7 


(183+1)  SU 

8 (I.D 

Airfoil  section  type 

(190+1) 

(1,2) 

Airfoil  2-D  camber 

(197+1) 

(1,3) 

Thickness  ratio,  t/c 

(204+1) 

(1,4) 

Leading-edge  sweep 

(211+1) 

(1,5)* 

x/c  for  maximum  t/c 

(218+1) 

(1,6) 

Vacant 

(225+1) 

(1,7)** 

Wetted  Area  (Total) 

(232+1) 

(1,8) 

Exposed  root  chord 

(239+1) 

(1,9) 

Tip  chord 

(246+1) 

(1,10) 

Exposed  Semi-span 

(253+1) 

(1,11) 

X-station  at  leading 

edge  of 

root 

chord 

(260+1) 

(1,12) 

Y-statlon  at  leading 

edge  of 

root 

chord 

(267+1) 

(1,13) 

Z-station  at  leading 

edge  of 

root 

chord 

(274+1) 

(1,14) 

Incidence 

(281+1) 

(1,15) 

Vacant 

(288+1) 

1 (1,16) 

Vacant 
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(Table  1 Continued) 


1 VARIABLE  NAME  DESCRIPTION 

(Input  Data  Block  #3  (Surface  Geometry),  Continued) 


(295+1) 

SUR  (1.17)* 

Exposed  taper  ratio 

(302+1) 

(1.18)* 

Exposed  planform  area  (Total) 

(309+1) 

(1.19)* 

A'.pect  ratio 

(316+1) 

(1.20)* 

Characteristic  length 

(323+1) 

(1.21)* 

Sweep  of  quarter-chord 

(330+1) 

(1.22)* 

Sweep  of  mid-chord 

(337+1) 

(1.23)* 

Sweep  of  trailing  edge 

(344+1) 

(1.24)* 

Sweep  of  maximum  thickness 

(351+1) 

■ 

1 

(1.25) 

1 

1 

Vacant,  Reserved  for  future  expansion 

1 

* 

(386+1) 

1 

1 

' (1.30) 

1 f 

Input  Data 

Block  #4  (Arbitrary  Airfoil) 

A £ ) 

VARIABLE  NAME 

DESCRIPTION 

(394-423) 

AFX(I) 

x/c  for  airfoil  Input,  I » 1,  30 

(424-453) 

AFC (I) 

Camber  distribution 

(455-483) 

AFT(I) 

Thickness  distribution 

Input  Data 

Block  05  (Variable  Sweep) 

A { ) 

VARIABLE  NAME 

DESCRIPTION 

(484) 

XPIVOT 

X-statlon  of  wing  pivot 

(485) 

YPIVOT 

Y-station  of  wing  pivot 

(486) 

Vacant 

(487) 

AFTSW 

Maximum  aft  sweep  of  leading  edge 

(488) 

AFTCB 

MAC  of  movable  panel  in  aft  position 

(489) 

AFTOC 

t/c  of  movable  panel  in  aft  position 

(490) 

AFTAW 

Ayet  of  movable  panel  in  aft  position 

Input  Data  Block  #6  (Survey  Conditions) 


A_£ ) 

VARIABLE  NAME 

DESCRIPTION 

(491) 

NSURV 

Number  of  surveys 

(492) 

NCLAS 

Number  of  evenly  spaced  C^'s 

(492+1) 

FMSURV(I) 

Mach  numbers  for  surveys 

(512+1) 

ALT(I) 

Altitude  for  surveys 

(532+1) 

CG(I) 

X-station  of  eg  for  surveys,  fraction 
of  MAC 

(552+1) 

SWPV(I) 

Leading-edge  sweep  for  surveys 

(572+1) 

CLLO(I) 

Low  Cl  for  surveys 

(592+1) 

CUII(I) 

High  Cl  for  surveys 

(612+1) 

Vacant 
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(Table  1 Continued) 

VARIABLE  NAME  DESCRIPTION 

Input  Data  Block  #7  (Adjustment  Factors) 


(632+1) 

IVAL(I) 

Indicator  for  parameters  to  be  adjusted, 1»1, 20 

(653) 

NXVAR 

Number  of  Mach  numbers  in  table  of  Mach 
function  adjustment  factors 

(654) 

NADJ 

Number  of  parameters  to  be  adjusted  as 
a function  of  Mach  number 

(655) 

NXCL 

Number  of  Cl  values  in  the  table  of  lift 
function  adjustment  factors 

(656) 

NADJ2 

Indicator  for  M^r 

(656+1) 

X(l) 

Mach  numbers  for  the  table  of  Mach  adjust- 
ment factors  I“l,15 

(672-806) 

YM(I,J) 

Multiplier  factors,  I“15,  J-9 

(807-941.' 

YA(I,J) 

Adder  factors,  I“15,J"9 

(941+1) 

XCL(I) 

Cj_  values  for  the  table  of  lift  function 
adjustment  factors,  1*1,15 

Input  Data  Block  #8 

hi  l 

VARIABLE  NAME 

DESCRIPTION 

(957) 

i 

i 

i 

i 

i 

Reserved  for  future  expansion 

(1641) 

Input  Data  Block  #9 

(Damage  Mode  Indicators) 

VARIABLE  NAME 

DESCRIPTION 

(1641+1) 

IDAM(I) 

Indicator  to  select  damage  modes, I“l, 17 

Input  Data  Block  #10 

(Body  Damage  Parameters) 

hi 1 

VARIABLE  NAME 

DESCRIPTION 

(1661+1) 

DB 

5D(I,1) 

Roughness  factor  before  damage  on  Body  I,I"1 

(1668+1) 

(X.2) 

Roughness  factor  of  d »-ed  area  on  Body  I, I 

(1675+1) 

(1,3) 

x/1  where  damage  starts 

(1682+1) 

(1,4) 

x/1  where  damage  ends 

(1689+1) 

(1,5) 

Fraction  of  area  affect  by  damage 

(1697-1731) 

(I,6)-(I,10) 

Vacant 

(1731+1) 

(1,11) 

Number  of  forward-facing  steps  on  Body  I,I“1 

(1738+1) 

(1,12) 

Width  of  each  step 

(1745+1) 

(1,13) 

Height  of  each  step 

(1752+1) 

(1,14) 

x/1  at  first  step 

(1759+1) 

(1,15) 

x/1  at  last  step 

(1767-1801) 

' (I, 16)- (1,20) 

Vacant 
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(Table  1 Continued) 


AL I 

(1801+1) 

(1808+1) 

(1815+1) 

(1822+1) 

(1829+1) 

(1837-1871) 

(1871+1) 
(1878+1) 
(1885+1) 
(1892+1) 
(1899+1) 
(1906+1) 
(1913+1) 
(1921  + I) 

(1928-1941) 

(1941+1) 

(1948+1) 

(1955+1) 

(1962+1) 

(1969+1) 

(1976+1) 

(1983+1) 

(1990  -2001) 

(2001+1) 

(2018+1) 

(2025+1) 

(2032+1) 

(2039+1) 

(2047-2081) 


VARIABLE  NAME  DESCRIPTION 


(Input  Date  Block  #10  (Body  Damage  Parameter*) t Continued) 


D80D(1,21) 

(1,22) 

(1.23) 

(1.24) 

(1.25) 

(1.26) -(I, 30) 


Number  of  aft-facing  steps  on  Body  I, 1-1,7 

Width  of  each  step 

Height  of  each  step 

x/1  at  first  step 

x/1  at  last  step 

Vacant 


(1.31) 

(1.32) 

(1.33) 

(1.34) 

(1.35) 

(1.36) 

(1.37) 

(1.38) 

(1. 39) - (1,40) 

.(1,41) 

(1.42) 

(1.43) 

(1.44) 

(1.45) 

(1.46) 

(1.47) 

(1,48MI,50) 


Total  number  of  holes  in  Body  I, 1-1,7 

Number  of  these  holes  over  wing 

Length  of  each  hole 

Width  of  each  hole 

Depth  of  each  hole 

x/1  where  first  hole  starts 

x/1  where  last  hole  starts 

Type  hole 

Vacant 

Total  number  of  waves  in  Body  1, 1-1,7 

Number  of  these  waves  over  wing 

Length  of  each  wave 

Width  of  each  wave 

Amplitude  of  each  wave 

x/1  where  first  wave  starts 

x/1  where  last  wave  starts 

Vacant 


(1.51) 

(1.52) 

(1.53) 

(1.54) 

(1.55) 

,f  (1,56)  - (1,60) 


Number  of  protuberances  on  Bodyl, 1-1,7 
Height  of  each  protuberance 
Parasite  area  of  each  protuberance,  Af 
x/1  of  first  protuberance 
x/1  of  last  protuberance. 

Vacant 
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(2081+1) 

(2088+1) 

(2096-2151) 


(Table  1 Continued) 

VARIABLE  NAME  DESCRIPTION 

(Input  Data  Block  #10  (Body  Damage  Parameters),  Continued) 

DB0D(I,61)  Frontal  area  of  blunted  body  at  point 

of  damage 

(1.62)  1/d  at  point  of  damage 

(1.63) — (1,70)  Vacant 


(2152-2361) 


H 1 

(2361+1) 

(2368+1) 

(2375+1) 

(2382+1) 

(2389+1) 

(2396+1) 

(2404-2431) 

(2431+1) 

(2438+1) 

(2445+1) 

(2452+1) 

(2459+1) 

(2466+1) 

(2474-2571) 

(2501+1) 

(2508+1) 

(2515+1) 

(2522+1) 

(2529+1) 

(2536+1) 

(2544-2571) 


V (I,71)-(I,100) 


Reserved  for  additional  modes  of  body 
damage 


Input  Data  Block  #11  (Surface  Damage  Parameters) 


VARIABLE  NAME 
DSUR(I,1) 

(1,2) 

(1.3) 

(1.4) 

(1.5) 

(1.6) 

(I,7)-(I,10) 


DESCRIPTION 

Roughness  factor  before  damage  on  surface  I, 1-1,7 
Roughness  factor  after  damage  on  surface  I, 1-1,7 
x/c  where  damage  starts 
x/c  where  damage  ends 

Fraction  of  area  affected  by  damage 
Lower  surface  (0)  or  upper  surface  (1) 

Vacant 


(1,11) 

(1,12) 

(1.13) 

(1.14) 

(1.15) 

(1.16) 

(I, 17)- (I, 20) 


Number  of  forward-facing  steps  on  surface  I, 
lower  surface 

Number  of  forward  facing  steps  on  surface  I, 
upper  surface 

Width  of  each  step 

Height  of  each  step 

x/c  at  first  step 

x/c  at  last  step 

Vacant 


(1,21) 

(1,22) 

(1.23) 

(1.24) 

(1.25) 

(1.26) 

'f  (1, 27)- (I, 30) 


No.  of  aft-facing 
lower  surface 

No.  of  aft  facing 
upper  surface 

Width  of  steps 
Height  of  steps 
x/c  at  first  step 
x/c  at  last  step 
Vacant 


steps  on  surface  I, 
steps  on  surface  I, 


t 


| 

jj 
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(Table  1 Continued) 

A£ ) VARIABLE  NAME  DESCRIPTION 

(Input  Data  Block  #11  (Surface  Damage  Parameters),  Continued) 


(2571+1) 

DSUR(I,31) 

No.  of  holes  on  surface  I. lower  surface 

(2578+1) 

(1,32) 

No.  of  holes  on  surface  I, upper  surface 

(2585+1) 

(1,33) 

Length  of  each  hole 

(2592+1) 

(1,34) 

Width  of  each  hole 

(2599+1) 

(1,35) 

Depth  of  each  hole 

(2606+1) 

(1.36) 

x/c  where  first  hole  starts 

(2613+1) 

(1,37) 

x/c  where  last  hole  starts 

(2620+1) 

(1,38) 

Type  hole 

(2627+1) 

(1,39) 

Porosity  factor 

(2634+1) 

(1,40) 

Vacant 

(2641+1) 

(1,41) 

No.  of  waves  on  surface  I,  lower  surface 

(2648+1) 

(1.42) 

No,  of  waves  on  surface  I,  upper  surface 

(2655+1) 

(1,43) 

Length  of  each  wave 

(2662+1) 

(1,44) 

Width  of  each  wave 

(2669+1) 

(1,45) 

Amplitude  of  each  wave 

(2676+1) 

(1,46) 

x/e  where  first  wave  starts 

(2683+1) 

(1,47) 

x/c  where  last  wave  starts 

(2691-2711) 

(1,48)  - 

(1,50) 

Vacant 

(2711+1) 

(1,51) 

No.  of  protuberances  on  surface  I, 1-1,7 

(2718+1) 

(1,52) 

Height  of  each  protuberance 

(2725+1) 

(1,53) 

Parasite  area  of  each  protuberance,  Af 

(2732+1) 

(1,54) 

x/c  of  first  protuberance 

(2739+1) 

(1,55) 

x/c  of  last  protuberance 

(2747-2781) 

(1,56)  - 

(1,60) 

Vacant 

(2785-3061) 

1 (1,61)  - 

(1,100) 

Reserved  for  additional  modes  of  surface  damage 

(3062  ) 

dw: 

[NG  (1) 

Ac/c  •*-  chord  of  missing  leading  edge 

(3063 ) 

(2) 

+2^  ~ inboard  edge  of  missing  leading  edge 

(30  64) 

(?) 

A'T.  >v  span  of  missing  leading  edge 

(3065) 

(4) 

z/t  Ratio  of  leading-edge  to  maximum  thickness 

(3066) 

(5) 

corner  sharpness  factor  for  leading  edge 

(3067  ) 

(6) 

left,  right,  or  both  sides,  leading  edge 

(3068 ) 

1 

' d) 

Ac/c  chord  of  missing  trailing  edge 
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(Table  1 Continued) 

VARIABLE  NAME  DESCRIPTION 

(Input  Data  Block  #11  (Surface  Damage  Parameters),  Continued) 

Inboard  edge  of  missing  trailing  edge 
A7-'-span  of  missing  trailing  edge 
left,  right,  or  both  sides,  trailing  edge 
A7'*-span  of  missing  wing  tip,  left 
A’l-span  of  missing  wing  tip,  right 

moment  arm  of  roll  trimming  device 
Fraction  of  area  lost  from  left  H.T. 
Fraction  of  area  lost  from  right  H.T. 
Fraction  of  area  lost  from  other  surfaces 


(3069)  DWING(I,8) 

(3070) 

j (9) 

(3071) 

j (10) 

(3072) 

(ID 

(3073) 

(12) 

(3074 ) 

(13) 

(3075) 

(14) 

(3076) 

(15) 

(3077  ) 

(16) 

(3078) 

(17) 

(3079 ) 

(18) 

(3080) 

(19) 

(3081)  \ 

' (20) 

♦Items  marked  with  an  asterisk  are  computed  internally.  But,  since  they  logically  group 
with  the  input  variables,  they  are  stored  as  shown  in  Table  I. 

♦♦Optional  Input.  If  zero  is  input  for  these  parameters,  the  value  to  be  used  will  be 
computed  internally. 
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TABLE  2 

Variables  In  Common  Block  OUTPUT 


I LJl 

(1-21) 

VARIABLE 

DEFINITION 

CLTAB(21) 

Table  of  C^ 

(22-42) 

TABMCR(21) 

Table  of  Mach  Critical 

(43) 

CL 

Cl  Value  for  Survey 

(44) 

CD 

^D  At  ^l 

(45) 

CM 

CM  at  CL 

(46) 

ALPHA 

a at  C^ 

(47) 

CDM 

CDoln 

(48) 

CDL 

Drag  Due  to  Lift 

(49) 

CDR 

Drag  Rise  at  Lift 

(50) 

CDRO 

Drag  Rise  at  Zero  Lift 

(51) 

CLT 

Trimmed  Cl  at  a Corresponding  to  CL 

(52) 

ctrr 

Trimmed  Cq  at  a Corresponding  to  Cl 

(53) 

DH 

Trim  Deflection  (Horizontal) 

(54) 

FK 

Polar  Shape  Factor 

(55) 

DELCL 

Polar  Displacement 

(56) 

CMO 

Wing- Body  Moment  at  Zero  Lift 

(57) 

DCMCL 

(dCM/dCL)  Wing-Body 

(58) 

XACWB 

A.C.  Location-Wing-Body 

(59) 

CLA 

Lift  Curve  Slope 

(60) 

ALO 

Zero-Lift  « 

(61) 

R 

Leading-Edge  Suction 

(62) 

CMOH 

Cjj  at  DH'O 

(63) 

XH 

Moment  Arm  Length  From  CG  to  c/4  Horizontal 

(64) 

OMEGA 

Angle  of  Line  Between  CG  and  HT  A.C. 

(65) 

XCT 

Fuselage  Station  of  CG  Location 

(66) 

EO 

Span  Efficiency  of  Wing-Body,  R«1 

(67) 

BMCRB 

Body  Mach  Critical 

(68) 

CLDE 

%e 

(69) 

AKD 

Elevon  Drag  Factor 

(70) 

XCP 

Elevon  Center-of-Pressure 

(71) 

DE 

Elevon  Deflection 

(72-94) 

Vacant 

(95) 

DEDA 

d<  /do 

(96) 

CLAW 

Wing  CLa 

(97) 

CLAB 

tody  cla 

(98) 

CLAT 

Tail  C, 

(99) 

AH 

Tati  Drag  Factor 
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(TABLE  2t  Continued) 


1 

VARIABLE 

(100) 

BH 

(101) 

A.01I 

(102) 

CH 

(103) 

A BREAK 

(104) 

CLDH 

(105) 

CLPB 

(106) 

CLDB 

(107) 

CLMAX 

(108) 

ABRK 

(109) 

AMAX 

(110) 

DAMAX 

(111) 

DEL 

(112) 

CLS 

(113) 

ARLO 

(114) 

FMCRO 

(115) 

FKL1 

(116) 

FML2 

(117) 

CDC 

(118) 

CLAMCR 

(119) 

CLAML2 

(120) 

CDMCR 

(121) 

CDML2 

(122) 

CDATM 

(123-129) 

(130) 

XACS 

(131) 

CDO 

(132) 

A2 

(133) 

A3 

(134) 

PL 

(135) 

CDMISC 

(136) 

(137) 

CDAFT 

(138-142) 

(143) 

ALT 

(144) 

SPEED 

(145) 

SWEE1' 

DEFINITION 

Tail  Drag  Factor 
Tail  Incidence  for  Zero  Lift 
Tail  Drag  Factor 
Tall  Drag  Factor 


Polar  Break  Lift  Coefficient 
Drag  Break  (Polar) 

C4iAX 
a at  CLPB 

° at  c4iAX 
A of  max 

Lift  Curve  Parameter 

Lift  Curve  Parameter 

Aspect  Ratio  Boundary 

Mach  Critical  at  Zero  Lift 

Mach  Limit  1 

Mach  Limit  2 

Camber  Drag 

cLa  at  MCRO 

CLa  at  ML2 

Wing  Drag  at  MCR0 

Wing  Drag  at  Ml2 

Wing  Drag  at  M 

Vacant 

Aerodynamic  Center  at  Stall 
Cj>  at  Zero  Lift 
Drag  Rise  Parameter 
Drag  Rise  Parameter 
Drag  Rise  Parameter 
Miscellaneous  Drag 
Vacant 

Aft  End  Upsweep  Drag 
Vacant 

Survey  Condition 
Survey  Condition 
Survey  Condition 
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(TABLE  2,  Continued) 


BL_1 

VARIABLE 

DEFINITION 

(146) 

JPASS 

Program  Control  Parameter 

(147) 

Vacant 

(148) 

RNOFT 

RN/FT 

(149-153) 

T0TCD(5) 

Drag  Table  - Total 

(154-188) 

CDSUR(I.J) 

Drag  Table  - Surfaces 

(189-223) 

CDBOD(I.J) 

Drag  Table  - Bodies 
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TABLE  3 

Variables  In  Common  Block  CALC 


1 


C LA 
(i) 

VARIABLE  NAME 

DESCRIPTION 

B02 

Wing  Semi-Span  (b/2) 

(2) 

DOB 

Body  Dla./Wlng  Span  (d/b) 

(3) 

CR 

Wing  Root  Chord  at  Centerline 

(4) 

SPLAN 

Theoretical  Wing  Planfonn  Area 

(5) 

XCRTE 

X-Sta.  of  Theor.  Centerline  Root  Chord  (CR)  Trailing 
Edge 

(6) 

SWPQC 

Equivalent  Wing  Quarter-Chord  Sweep 

(7) 

SWPMC 

Equivalent  Wing  Mid-Chord  Sweep 

(8) 

SWPTE 

Equivalent  Wing  Tralllng-Edge  Sweep 

(9) 

SWOT 

Equivalent  Wing  Max.  Thickness  Sweep 

(10) 

SEXW 

Equivalent  Wing  Exposed  Area 

(ID 

CBAR 

Equivalent  Wing  Exposed  MAC 

(12) 

TOCW 

Equivalent  Wing  Thickness  Ratio 

(13) 

CLD 

Equivalent  Wing  2-DiDesign  Cl 

(14) 

ARXR 

Equivalent  Wing  Exposed  Aspect  Ratio 

(15) 

CRX 

Chord  Length  at  Wing  Root  (Exposed) 

(16) 

CTX 

Chord  Length  at  Wing  Tip 

(17) 

XRX 

X-Station  at  LE  of  Wing  Root 

(18) 

XTX 

X-Statlon  at  LE  of  Wing  Tip 

(19) 

YRX 

Y-Station  at  Wing  Root 

(20) 

YTX 

Y-Station  at  Wing  Tip 

(21) 

XB 

X-Station  of  LE  of  Wing  MAC 

(22) 

YB 

Y-Station  of  LE  of  Wing  MAC 

(23) 

SWET 

Outboard  Panel  Awet 

(24) 

Vacant 

(25) 

SWPLE 

Equivalent-Wing  LE  Sweep 

(26) 

FOC 

Max.  Camber  Ordinate 

(27) 

SWPR 

Variable-Sweep  Angle  (Outboard  Panel) 

(28) 

KPASS 

Program  Control  Indicators 

(29) 

AR 

b2/sPlan 

(30) 

TR 

X (Equivalent  Taper  Ratio) 

(31) 

YIX 

Span  of  Inboard  Wing 

(32) 

SIX 

Exposed  Area  of  Inboard  Wing 

(33) 

ARI 

Aspect  Ratio  of  Inboard  Wing 

(34) 

CBXP 

Root  Chord  of  Equivalent  Outboard  Wing 

(35) 

SOXP 

Exposed  Area  of  Equivalent  Outboard  Wing 

(36) 

AROP 

Aspect  Ratio  of  Equivalent  Outboard  Wing 

(37) 

DXQC 

Equivalent  Wing  Parameter 
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(TABLE  3,  Continued  ) 


cLA 

VARIABLE  NAME 

DESCRIPTION 

(38) 

TWIST 

Wing  Twist 

(39) 

WINC 

Wine  Incidence 

(40) 

XHT 

X-Station  for  HT  £ 

(41) 

TOCS 

t/c  for  Swept  Panel 

(42) 

CBAR2 

Exposed  CBAR  for  Swept  Panel 

(43) 

CLDS 

CLD  for  Swept  Panel 

(44) 

YOX 

Span  of  Outboard  Swept  Panel 

(45) 

SWPMCS 

Mid  Chord  Sweep  of  Outboard  Swept  Panel 

(46) 

DAI 

Correlation  Factor  for  Variable  Sweep 

(47) 

DAC1 

Correlation  Factor  for  Variable  Sweep 

(48) 

DA2 

Correlation  Factor  for  Variable  Sweep 

(49) 

DAC2 

Correlation  Factor  for  Variable  Sweep 

(50) 

DTOC 

Correlation  Factor  for  Variable  Sweep 
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TABLE  4 

Variables  in  Common  Block  NUCOUT 


P(  ) 

VARIABLE 

DESCRIPTION 

(1-119) 

DAMCD(I.K) 

ACj)  . on  Each  Component  Due  to  1 
oin  I-Body  or  Surface  No.  I-l 
K-Mode  No.  K-l 

Damage 

.7 

.17 

(120-238)'- 

SYM(I,K) 

Indicates  Symmetrical  Damage  if  SYM  (I,J)"1.0 

I-Body  or  Surface  No.  1-1,7 

K-Mode  No.  K-l, 17 

(239) 

DCDMIN 

TotalA^^  Due  to  Damage 

(239+1) 

ALP(l) 

Undamaged  Aircraft  a 1-1 

.21 

(260+1) 

CL(I) 

Undamaged  Aircraft  Cl 

(281+1) 

CD(I) 

Undamaged  Aircraft  Cq 

(302+1) 

CM(1) 

Undamaged  Aircraft  C^ 

(323+1) 

CLT(I) 

Undamaged  Aircraft  Trimmed  Cl 

(344+1) 

CDT(l) 

Undamaged  Aircraft  Trimmed  Cd 

(365+1) 

CLP(l) 

Damaged  Aircraft  Cl 

(386+1) 

CDP(I) 

Damaged  Aircraft  Cq 

(407+1) 

CMP (I) 

Damaged  Aircraft  Cjj 

(428+1) 

CLTP(I) 

Damaged  Aircraft  Trimmed  CL 

(449+1) 

CDTP(I) 

Damaged  Aircraft  Trimmed  CD  ) 

' 

(470+1) 

RCLA(I) 

Increment  in  Cl  That  Produces  Rolling  Moment, 
Caused  by: 

1-1  Missing  LE 

1-2  Missing  TE 

1-3  Missing  Left  Wing  Tip 

1-4  Missing  Right  Wing  Tip 

1-5  Missing  .Left  H.T. 

1-6  Missing  Right  H.T, 

(477) 

DXAC 

Shift  in  Wing-Body  A.C.  (A  X/C) 

(477+1) 

CROLL(I) 

Rolling  Moment  Coefficient  Caused  by  Asymmetric  Wing 
or  Tail  Damage.  Corresponds  to  ALP(I),  1-1,21. 

(498+1) 

CDRT(I) 

Drag  Due  to  Trimming  Out  the  Rolling  Moment,  1-1,21. 
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4.4 


PROGRAM  LISTING 


A complete  listing  of  the  program  is  shown  in  this  section. 
The  subprograms  and  subroutines  appear  in  the  order  in  which  they 
occur  within  the  program. 
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CVF.PL AY  (CVLY>0»0) 

^jl{^fiI;tlpl?l]PU7"514,T'PE5'INFL‘7,T^ff'CL’TPtT» 


Ff'PJCTCAL  AIRCRAFT  A EPCOYN'AhIC  PPCCICT  In^  PPCCEOLRE 

CrA  F'GN/IN  Pl'T  / M-UOl) 

Ci/CAPN  /rUTPIT/  P(223) 

O’FMTA  /CALC/  C(eC> 

CmcN  / p I K^ATl/  TdAll) 

CC'-'CN  /PLX0AT2/  ((SCF) 
r r f ► 0 N /YUT1L/  TITLE  ( M 
C'-NC.'-  /PLKPRT/  KPPINTC50) 

CORAQN  /PLKOV1/  T J 

15  1J  « 0 
V°ITE  <6>i COl) 

2CO 1 fC*PAT(5X»15H  E^TER  INPUT  ) 

2C  CALL  OViOl AY (AHCVt Y»1>C) 

' IF  (I J. EC. 2)  GO  TC  30 

WHTE  <6>2  CC2) 

?0C?  ppf.vaT(.‘X#15N  PETFP  GECRETRY) 

CALL  C Vt  R LA  Y ( AHCVL  Y » 2 > 0 ) 

V •> ! Tc  (c»2v03) 

2C0 3 FCP1AT ( 1EH  FFTER  SURVEY  ) 

CALL  OVERLAY  (A(JrVLY»?>u) 

’ CC  TO  ?C 

'30  WPITF  <f,200A) 

2 OCA  RCrAAT(5X/lbH  EN'TCR  NUCPAP  ) 

CAU  CVtKLAY(AVJCVLY>A,C) 

RTWINO-IG 
c F A C (10) 

PE  AO  <lu)  fi 
CC  TC  20 

ENT 
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HEFCtTIKF.  LMP(yP*P#Y£*P>X>Y#M>NC) 


tAGPAKGJAK  IK'TFPPriiTirK 

1)  INCREASING  CP  Of-CF  EASING  X ARF  AY 
21  11NEA®  FXTFAPCLATirN  CMY 

3)  K-  • NU^FF  PF  POINTS  U «=  ? C IK  IKTE  P PPL  * T I CK 

A)  k » Trm  Num*  r-F  punts  i*  > array 
5 ) lMPC.U.O.rK.K.lE.&I  YPAP  » c.c 
U 1F(K  .FC.l  .AND. NT  .01  .0)  YE  AC«Y( 1 ) 

I)  IF  tNu.lP.l  .AKr.K.r-T.O)  >PAR*Y!Nf ARF5T  MI)) 
FI  IF(KC.GI.K)  IMERfPl/. TICK  AS  IF  FUN 


C 


c 


c 


c 


c 


c 


c 


oircK-siPN  xm  , y<u 

YPAP,«C.O 

N«NC 

IF(K.CT.K)  k»k 
IrC'.lE.O.rr.K’.tE.O)  RETURN 
IF(F'.CT.l  ) CC-  TC  10 
Y R F 1 * Y ( 1) 

RETURN 


10  NOC-O 

ir-IMFJ.U.Ml))  POOl 
C-C  ?C 

jl«I-)+f'l)C 
I ? « 1 -NPC 

Jc(XPA»'.Gt.Xni)»AK0«yPAP«LE.X(I2))  CC  TC  AC 
20  CONTINUE 

n«i 

IF  ( (V.OC.FC.O.  AMC  .XPAP.CE.X(K)  ) .CR  . t N TC  . NF  .0  . AM\  > P/ P . I E , 
i Il*r-1 
i?«im 
GC  TC  A5 


AG 
A 5 
50 


I c ( ^ • GT  •?)  C-C  TC  FO 
IMF  .IT. 2)  GC  TC  £5 

YaA?«Yni)  + (xp.Ap-Mii))*(Yu?)-Y(iin/(xnz)“X(iin 

PETUPK 


55  YEAP  * Y 1 1 1 ) 

YF(APS(XE/R-X(I?)).lT.APS(XPAF-X(Il>n  YEAR»Y(I2) 
P-ITLBK 


00  J=I-N/2 

IF ( I.LF  .N/241)  J*1 

I c ( I . G T .P-N/2  ) J«F-N+1 

NT«F‘4J-1 

CO  *0  1 s J > NT 
Sll.«l  .0 
DC  70  K«J»NT 

IF  (K  .KE.f)  ELL«ril*(XBA8-X|K))/fX(II-X(K)) 
70  CCKTIMJF 
BC  YP/P»YPAP4EU+Y(I) 

RETURN 


EF'C 


xmi ) 
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FUNCTION  TINT  ( XP  M>  ,Y « * R, V , Y » F >NX »NY> NX NAX » L PX» ICY > 
C 

C CPUHE  LAGRANGE  INTERPOLATION 
C 

DIMENSION  X(l)#Y(l)cF(NXKAX>l)>FTt?5) 

C 

FPAR«C.O 

l?(ir.Y.GT.2f ) LP-Y-25 
LL>»tr* 

IFUGX.CT.NX)  LLX«NX 
IFCNY.GT.il  GO  TO  10 
CALI  IMF  <X&AF»FPAF,X>l:(l*l)#NX»UX) 

CO  TO  30 
f 

10  LLY*LOY 

IFUPY.C-T.NY)  LLY»NY 
PP  2-'  I *1*  NY 

CALL  LMP  <XP*e,FT(n>X»F<l*I)>NX»LLXJ 
?0  CONTINUE 

CALI  l NTP  tY?AS»PMF>Y>cT>NY>lLY) 

30  0LN1«F?AR 
C 

RETURN 

END 


I 
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SUPPPC'Tm  TLVKXr  AF,YPAF,  7PAR  » FBAP#  X>  Y#  2>  F>  NX,  NY*  NXH*  X>NYMX  ) 

TPJPLC  LINf>3  INTECPCIATGP 

OIKENSKN  Xm>Ym,Z{l)#F<KXPAX*NY*A*,l)#FT<25) 

OP  10  I* 1 »N7 
C 

10  FT  C I ) * CLNT(XBAP»Y?AP*X*Y#F(1>1*I)>NX*NY.»NXHAX»2>2) 

CALL  LNTP <ZBAR,FB/R*7*RT>NZ>?) 

C 

RETURN 

END 
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SUPPOCTINf  L SPCF ( X,Y»N#PP»SA#FE#MGKA#  IT) 
IMST  SCUAPfS  PiHYNGf'IMt  CUFVE  PIT  St.PBCl'TTNC 


ClfFNSlfN  M f>#F).ST<P)#P<P>#T< 

1 #XF'AX(7)»B(P»2I 

EQUIVALENCE  <P#  ST#  81 


t)#Y(M»RF{M»SA(f  ),X(NJ 


i r «*p+i 
J*i 

nc  10  i»?#n 

If  (APSIX(J)).6T./«S(Y(I)))f-0  TO  10 
J*I 

ic  frMTMt 

OC  f M « 1)11 

rr  7 r?  * i#ii 

7 /(*!#>?>■  C. 

6 CTUJME 

>n>iii»tpsmjn 

rr  c 1*2,7 

9 XVAX(I)*XPAX(1)4XPAX<I“1) 
rr  e i«i#  ii 
p Mi)  «o. 

T ( 1 ) * 1 .0 

CC  16  l»l#N 

T ( 2 ) * X ( l ) / XHiXH  ) 

rr  14  k*2,hp 

14  T (K+l ) *2  • C * T ( 2 ) * T (K )-T IK-1 ) 

rr  ie  i-i.tii 
MII-YU  MTUI+RU) 

DC  15  K =1 > 1 1 

15  MK#I)*M*#mT(KMT<n 

rr  is  i *?# 1 1 

L ►*  1*1  -1 
C r 12  Kxl,LPl 

12  A(K,11=a:l,K) 

13  r^-.M  INI/E 
IT  *0 

GO  TO  100 
,16  CONTINUE 

IF  (N  .Lf.  NP)  IT  * 142 
Jc  (PP  .CT.  7)  IT  * 19F 
1^  IXMiXm.EC.O.)  IT  *226 

N 5 « M P 

T M (WP.IT.1).0C« (PP.GT.7))  ULL  EXIT 
GO  TO  (ZU»21»22>22#?4>25#26 } , M F 

20  S A ( 1 ) *S  T ( 2 ) / XPAX ( 1 I 
5 A ( 2 ) • 5 T ( 1 ) 

GC  TO  27 

21  5 A < 1 )=2.*ST(3)/XM/iX(2) 

S A (?)=ST<2)/XMX  (1) 

SA (? ) * ST  U l-ST  (?  ) 
cr  TC  27 

22  SAm*4.*ST(*)/XMAX(?I 
SA(2)*2»*ST(3)/XJ*/X(?) 

5 A (?  ) * ( S T (?)-3»*ST (4) ) / XN AX ( 1 ) 

St (A) «ST(1)-ST(3) 

GO  TP  27 

2 3 SA  (1)  .*ST  ( 5 )/XNAX  (4) 

SM2)*4.4ST(M/XN/X  (3) 

5A(3)*(2.*ST  (3>-P.*M  (5)  ) /XNAX<2> 

S«'(4)  * ( 5 T (2  ) - 3 • * S T ( 4 ) ) / XPAX(l) 

St  (3)eST(l)~r. T!2)-*ST(S) 

GT  TP  27 

24  ti(l ) *lfc,*«T(fcI /VPAX(E) 

St  12):  U«'T(5)/XPAX(M 

SA  (?)»(*.»  ST  (*•) -2C-.  4 ST  (f  )>m-/X  (3) 

<A  ( M*<2.  **T(  ;)-=  ,<-ST  (5  ) ) /XKAXI2) 

SA C5)s(;T(2)-2.*ST(*)i6.*ST It) )/XKAX(l) 

5 A (fc  ) *S  T ( 1 )~ST(3)4ST(5) 

GC  TC  27 

25  SMI  )*3?.4ST(7)/XfAX(6) 

SM2)»16.*ST(i‘  )/vpAX<r) 

S 4 ( 3 ) * ( t . A S T ( 1 ) - A f . 4 I T ( 7 ) > / X p A X ( 4 ) 

5 A (A  )*(4.#  «T(M-ZC.*ST<fc)  )/XPAX(?) 
SA(5)*(2.’iST(2)-P,*ST(f)4lE.*ST(7))/XPAX{2) 
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nnnnmnft 


» ! 


26 


2? 


26 

29 


3 C 


100 


SA(6)»(ST<?)“?.*ST(0*£.*ST(M  WXM#X(1) 
SM7)«ST(1)-ST(3)4S1(5»-ST(7) 

CO  TO  27 

s/  m ■6<t.*s-T<f ) mom 

SA  (2)«r2.«ST<7jmAM6  ) 

SAm*tH.*ST(6)-112.*ST<?))/X66X(5) 

SA(4)«(6.*ST(£)-4?.*ST{7)>mAX(4) 

Sc  ( 5)  *<  4. ’ST  ( A )-20  ,»ST<  M + 56  .♦  ST  ( p)  ) / X K A X < 3 ) 

S 4 ( * ) *< 2 . * S T ( 3 ) -6 . ♦ 5 T ( * ) + i 6 . * « T ( 7 ) ) / X r A X ( ? J 
SMn=(ST(2)-?.*ST(c.)+  £ ,*$T  (6  )-7.*ST(fi)  ) /Xf-'AX  (1 ) 
SA(f )=?T(1)-ST (?)+5T(5)-ST(7) 

00  ?9  K-l/M 
S J N * S A ( II  ) 

00  2?  I »1*  **«» 

Ilmn-I 

S!."-«SIK4SA(  1 1"  I !*<X(K)  )*4I 
fr.KTIM'E 

P E (K ) »$ I6-Y ( K ) 

OOMIMUF 

SIG  = AfcS(PF(in 

Of  ?:■  J * 2 / N 

n C * S T 0 •*  1 1-  R { R f ( I ) ) 

OfM.-rPLOMfK) 

5 I Ff'.A»(SIfc*1.772453P)/ IDE  AN*  1.414214) 

RETIKN 

CHNTIME 
N * TJ 

6 * 1 

PET  » 0.0 

SOLUTION  CF  6ATFIX  A*X  « R 
N NC.  OF  RCVS  A NO  OOLITNS  JN  MATRIX  A 

COLUMNS  IF  M A TR I X * 

RCVS  If  AFP  AY  A 
ROWS  IK  ARRAY  F 
VALUF  OF  OcTfPA-IN-AK'T 
K'C  FRF  OR  > *1  ‘OF  SINGUIAF  MTR  T X 


210 


220 

230 

240 


5 C 
fcC 


K’C.  OF 
NC.  CF 
NO.  CF 
SCALED 
*0  FOR 


IA 
IP 
OF  T 

J f jj 

or'  24o  i*i/ n 

AO AX  . A ( J > 1 ) 

00  21v  vl«l/K' 

IF  (A3S(A(I>J)) 
COK-TINLt 
opt  « OFT  * AAV.X 
Ip  (A, ''AX  ,EC.  .0) 
O'"  22  C J * 1 / N 
A ( I / J ) * A ( J , J ) / 
00  23C  L»I/6 
6 ( I / L ) * SlhU  / 
CONTI  MF 


GT.  A PS ( A X AX ) ) AMA  X > AO/J) 


GO  TO  180 


A^AX 
A RA  X 


N'T 

IP 

IP.F 

GO 

On 

K 6 
K = 


= N-l 
(NT) 

* C 
TO-  16 

1 A 0 I * 1 j N T 
* I +1 
I 


50/ 50/6C 


7C 


80 


9C 

200 


A.MA  X • A ( J > I 5 
TO  7u  J«Nf/N 
1 1 ( A 8 S ( A ( J / I ) ) 

A N-  A X » A ( J » I ) 

K = J 

CONTI  N' OF 

0 ::  T « OFT  * Am 

IF  (K  .EO.  I ) GC  TO  200 

CET  = -CtT 

P(?  60  J*I/N 

SAV  « A ( I / J ) 

A ( ) * J ) - A ( K > »<  > 

A ( K » J ) * SAV 
CON  I I N’l’P 
00  90  1*1*6 

SAV  « F (K,u 
b ( N , L ) * 6 ( 1 / L ) 

P ( I/L  ) * SAV 
CCMINLf 
OC  130  K * K 6 / N 


• L T • A P p ( A 6 A X ) ) GC  TO  7C 


132 


IF  (Mill)  .EO.  0.)  GO  TO  lPu 

lurs-iii, i?c>  w,f? TC 120 

110  M K > J *)  « F P AS  ♦ A ( I > J ) MK,J> 

120  l ) « ERAS  ♦ 8 ( I » L ) + B ( K # L ) 

13G  CONTINUE 
1AC  CONTINUE 

PtT  * CET  * A ( N>  N ) 

IF  ( A ( N » N’  1 .EC.  0.)  GO  TO  IPO 
N'X  « N' 

llo  B(NXA)L’1B(NX,li  /_A(*n,NX) 


IF  ( N X .IE, 

NT  » NX-1 
CO  170  J«1>NT 
DC  170  L»l^ 

170  B(J>U  * fi(J>U 
NX  « NX  -1 
CO  TO  150 
180  IEP  «1 
GG  TO  16 
END 


1)  GO  TO  5C 


- MNy>l)  * M J > N X ) 
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nnn  o no  r>  ooo 


CCN^ON  /INPUT/  A ( ? CP  1 ) 

CON  NGN  /CALC/  CtiG) 

CC-.“rCN  /OUTPUT/  Cl  T AP  ( 21  ) * TAPMCB(21)» 

1 CL#  CO#  C*>  ALPHA#  CCN#  CCL#  COP#  CDPC#  CLT#  COT# 

2 ON#  Ft-#  OtlCl#  CFC#  TCNCI#  XACVP#  CI.A#  ALT* 

3 R#r»-rH,>H#CKECA#XCC#cC#FN(Ft#CLCE#AKD>XCF#n£# 

3 Bi t 24  ) # 

4 Cl AV,CLAe#C LA T#<H#PH»HPTAP# CH> AFP  FA K#Ct  rn# 

5 CL  P 6 » CLOP#  CLMAX#  C ?(?)#  FHL1#  F N L 2 # COC# 

b C?  ( 12  ) # X A C S # CMM#  CCAFT#  C5(S)# 

7 ALT#SPFEC#SVf.f  P#  JPASS#  P(77) 

EQUIVALENCE  < XL F 1, A < 2 54  } ) # ( C NAC # A ( 1 2 ) ) # CCFX#C(15)># 

1 (1T0TH#A(22))#  ( NFT#  A (4 ) ) 

TCIT  • 0.0 
DCGT  * 0.0 

CC-OCP  « (XCG  -XLED/CFX 
X A C * XACWP 


60 


A.C.  SHTFTS  TO  POSITION  FOP  STALLED  VING  ABOVE  C LOB 

I F ( CL.GT.CLDF  ) XAC  « XACWP  + (XACS  - XACVE)  * UCL-CLCF)/ 
l (CLNAX-CLDP ) ) + * 2 

Ie<  Cl.GT.CLMAX  ) XAC  ■ XACS 
lc(  SPEED. CE. 1.0  ) XAC  = XACWP 
DCNCL  ■*  ICGCCP  - XACVB)  * CFX/CKAC 
CH  • 0.0 

CLTAIL  « CLAT  + fALPHA  - FSTAP)  + CLDl.  * DH 
CLWS  « CL  - CLTATL 

XLT  = XH  ♦COSlfKEGA  - ALPHA/57.3)  /CNAC 

Cf'  « C“0  + (CCC-CP  - XAC)  *CPX/CKAC  * CL VE  - CLTAIL  ♦ XLT 
CHOP*-  « CH 

T = ( Cl.rH.fcC, 0.0. OF  .XLT, EC. 0.0  ) C-C  TO  60 
IF  ins)X.:C,l)  GC  TO  fcO 
CH  * C N / ( C LOH  * XLT) 

CH  « 0.0 

C0NT1NUF 

OE  * 0.0 

IF  (NHT.GT.O)  GC  TC  70 

IF  (ITfilH.EC.l)  Gf.  TT  7 \j 

XCLCF  - (CGCCR  * CFX/CNAC  -XCP)  +CLDE 

Ic  (XCLCF, FO. I .0)  GO  TO  70 

OE  * CN/XCLOE 

c y « o , o 


c 

c 

c 

c' 

c 


70  CONTINUE 

I F ( OH.EC.O.C  ) GO  TO  ICO 
ccl t « rn*ciOH 

TCCT  * A H*  OF*  + ? + RH*  OF* ( ALPHA  -FSTAP) 
IFtALPHA.GT.APP.EAK)  OCTT  x CTCT  4 , C H + f F* ( A l PH A-A P F E AK  ) 


ICO  IF  (OE.EC.C.C)  go  tO  200 


203 


OCLT  • CCIT  + CLOF  + OF 
CCTT  * CCCT  + AK  r * C F * * 2 

PETL'FN 

ENC 
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SUBROUTINE  A£R2  ( SPEED*  CUI 
LIFT  CURVE  SI  CPE 

COMMON  /PLKCLA/  SPLAN,  TOC*  TAPFR,  ARVS»  DMSTR»  CLC>  CM1»  DOE* 
1 F F SI  * SWPMC#  SREF 

COMMON  /PIKPRT/  KP»INT(bO) 


CGSZ  ■ CGS(SVPMC) 

FI  » 3.1415R 

mo  « 1.0 

I F ( SPEED. LT. 1.0  > TWOP 


• 1.  ♦ f.  FSL/$CFT(1.-SPEED**2) 


C$190  » <10.0  + 0.91  * ARVS**3)/tlC.O  + ARVS**3) 
ZMTR  * CSU»<?  + <1.0  -CSUPP)  * <1.0  - CCSZ)*<2 
ZMSTFO  = 7MSTF 

ZMSTR  « ZMSTR  + PNSTP 

r«*l  « 1,0  -?.0  * TCC  ♦ < A&VS**3/<A  .0  +ARVS**3)) 
1 * CPSZ**1 .5*  <1.0  ♦ 1.5*Pir**1.5) 

zmio  = zki 

JF<  ZM-10.C r.ZPSTRO  ) ZM10«  ZMSTPO 
7 kl  * Z*10  + PHI 
I F ( ZM1.GT.7MSTP  ) ZMSTR  « ZM1 
ZM?  - ZM1  ♦ TGr  + P M 1 * 0 . 5 

7M30  * 1.0  * TC‘C 

7^3  ■ 7M30 

IP<  ZM2.GT.1.0  ) ZM3  « 7M2  ♦ TOC 


S I 01 *0  • 0 
5107=0.0 
IP<  ZPP.NF.7M) 
I P t ZM3.NE.2M?) 


SIC-1  « 0.5*  ( (SPEED  -ZH)/(fP?  -7  M 3 ) | 

EIG2  * O.tMl.C  ♦ (MFEED  -ZM2)/(7M2  -7M2)) 


TOOL  * 1.0-/<P.4*AP»  «*CCSZ**1.5 
CTC’G  L =(TCf  - T Of  t )/CPSZ 
IP<  DTCCL.LT. 0.0,)  DTOfL  » O.C 
At'OT.  « AM  5 * OTtCl 
1 F ( DTPCL.C-T.C.07)  OTOCl.  - 0.07 
I F < AP.DT  .GT.C.l  ) ARDT  = 0.1 
cA^MA  « 9.0  ♦ (DTCCL  / <1.0  + O.f  * 


AOTT)  ) 


G A M A 0 * GAMMA 

Ir<  ZM3o.NE.ZM10  ) GAMMA  * GAMAO  * (ZM.3-ZM1 ) / l ZM30-ZM10 ) 

IF  (CAMMA.GT  .CAMAC  > GAMMA  * C-AMAC 

XF  . <16.0  +3.0*A?V$»*Z)/(P.0  +5  .0* A PV  b * *2  ) 

XKP  *U.C  + Dm*(l.C  -DC  B ) * * X F 
X K T * 1.0 

if  (SPFf  C.C-E.ZMl.ANO.SPrFr  .LE.ZM?)  XKT  . 1.0  - < A .C* S IC-1M  1 . C 
1 - S1GJ))**2  + GAMMA 

IF  (SPEED. GT.ZM2. AND  .SPEED. LE  . Z M>  3 ) XKT  n i.u  - ( A . C * S IG2  * ( 1 .0 
1 - SIG2)  )**3  * GAMMA 

5 CONTINUE 

Tl  « 2.0  * 0.66*67  * SCPT(TAPER)  - TAPER**? 

V « (l.o  ♦ FI  * A R V:  S ) / ( 3 , 0 + PI  * A»VS>  * Y1 

TWCS  * 1.0 

1 F < ZMSTR.LT. l.C  ) TV  C S •=  1.  ♦ FPSL/SCFT  (l.-?M$TF**2) 

CLAC  * (TVPS  * FI  * APVS)/(TVr,S  + SCFKTVCS  + <1.0  - 
1 C0S7**1 ;23  = a ) * ( A P V S / ( ? ,0*cr$ Z ) ) * * ? ) ) 

I F ( SPEED. CT.C.O  ) "MAP  . (SFIEF  - 7M«TF  ) * <1.0  + 

1 <ZMSTF/SFEEC)**Y  )»*2 

Z1  « PI  * A 5 V S / CL  AO 

71  » 3.0  ♦ Z 1 * <21-  ).0  ) + COSZ**t  .666.7 

Z « ZMSTK  * DLAO  * ARVS**2/Z1 

IF<SPEEf..CT.ZMSTR)  G"  TO  10 


CLAP 


C-0  TO  20 


( .OEAPBll  + TVOD*  M<H  $ ) / ( T VT  n ♦ SORKTVOD  ♦ (1.0  - 
CCSZ**1.3339  * (Sf  EEC/ ZMSTR  )**?.t67  ) ♦ ( A R V 5 / < 2 . * COS  Z ) )**2 
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r>or>  nnoo 


oor* 


ELOCK  DATA 
COPPON 


/PIKriU/XSVPl  (11),  Y P P I K ( 1 1 ) * 

A A A < 2 ? ) * PFt(22)*  CCC(??)*  rOO{??), 


nnu.' it  rrni'M)  i v-v.  t <"<• , * i i <r  r i > XTT(?2)» 
nrT(l?)*ATSV  (6  )*TPCT(M»f  XAC  1(216)  *FXAC.2<21fc), 

X F r A ( s.  ) , YlvC9(5)*  79DM2)*  F 6 DA  { f , 5 * 3 ) * 
xr  YO  ( o ) > YXPN(fc),  7i~r,;<6*6)* 

XFD6(9),  YFC6 ( 9 ) » /PD6(6)*  f fcffrl  ( 9,  A/ 6 ) * 
FCrf2(*>9>C')>  F»r'*i(A>A»f  )»■ 

MAP*  T f>  A.  N S » CY,  tt'tPU?),  FPAP(ll)* 

X1N13U0)*  Y)M?<7),  ? C U T 3 ? ( 1 0 > 7 ) » ZC-UT1 A { 10, 7 ) * 
•AX1M5*  X 3 K i ' t 6 ) # tYIN15*  YIM5(f)> 

FfTT15(t*5)*  FClTlt(t*S)* 

XK6)*  Yl(65*  X9(9)*  Y c ( t ) > XAP(5)>  YCCLm> 

X 5 V F ( T ) , YTF(A),  FEP?5(7*9)*  FEP7(7*9), 

XCLrPl?)*  Y AK  B C 7 ) 

/8  LKOA  T?  / XT  P < t ) > YC  3 (61*  YC?(6)*  X ? V F 1 ( A ) > YA(9.)* 

YPm,  yr.YiPjt  x^> t ^ , rT/»(c*A>#  ctap(&,9), 

X > C L M ( 1 3 ) > Y YOY ( 6 ) * FC t P M 1 • , t ) » xyrp(c), 
YYt'ACF(f),  FOCI  :.y  l<.*i)»»Yl|C|,  Y X ^ T ( A ) , 

7 C IP  A X ( c*  9 ) , X0Y2(h)*  YFCC  (6),  70C1P(6*6)* 

Z?  DC  IP.  (6,6  ), 

X 5 P ( F 3 , Y D Y A ( 6 ) , F 0 A ( F * 6 ) » HMfl)  YCn(g), 
FKV0FM6»F)*  X A N G { 1 v.  ) ^ YC1CC(7),  FFA(IC*7), 
XC2(6),Y/ST(9)»FCAMe*c)*>CT<6),YI'(5)*MW2(6  *f.)* 
XXXCLPK)*  FCLKxy(q,e)> 

XM12>*  XYt?)*  X F ( 1 2 » 7 ) 


CCPP-CN 


COPPON 

/PlKDtT3/XPACH3(17) 

9 

C0PK3 (17) 

; 

1 

XlC“2(f ) 

9 

F 0 X 3 ( 5 ) 

9 

crc*(6*s) 

9 

? 

XCC  3 ( B ) 

9 

CLD3(‘ ! 

9 

X P 3 ( 6*  6 ) 

9 

3 

YP  ACH3 ( 1 3 ) 

9 

f P F3  j i 3 ) 

9 

A 

ZPACH2 ( 13 )* 

C P A 3 ( 13) 

9 

c 

s 

X l OHA (12) 

9 

K?X<*  (7  ) 

9 

COCA (12*7) 

9 

t 

9 A T T P ? ( P ) 

9 

i Pr  'FdC) 

9 

CFAf3(f *30) 

9 

7 

XL  00(6) 

9 

VP  AC>'(6) 

9 

C S A G 9 ( 6 , 6 ) 

9 

8 

Of TA1IA) 

9 

Ani1) 

9 

C 1. A 1 ( 6*  5) 

9 

9 

0FTA2U  ) 

9 

SVPCC215) 

9 

CLA?(t*5) 

9 

1 

E T # l 3 ( 6 ) 

9 

CLA3 ( 6 ) 

9 

2 

Of TA9(6) 

9 

A P 9 ( 5 ) 

9 

C l A A ( A,  * 5 ) 

9 

■3 

C»=TA5(M 

9 

^ V D C C ! ( 5 ) 

9 

Cl  A \ (6, J ) 

9 

A 

F T A 15(B) 

9 

C L A t ( 8 ) 

9 

5 

CCG8(B  ) 

9 

CCOC (6) 

9 

CL  ACl A(6*6) 

COMPCN 

/eLKOATA/OFTAll (6) 

9 

A P 1 1 ( b ) 

9 

XAC 1 ( 6*  5 ) 

1 

OFTAUm 

9 

SWCC 1 2 ( 5 ) 

9 

XAC2U  *5  ) 

2 

ETA  113 (6) 

9 

X A C 3 ( 6 ) 

3 

0 F T A 1 A ( 8 ) 

9 

A P 1 A ( 5 ) 

9 

X A C * t B * 5 ) 

A 

OF  T A 1 5 ( 8 ) 

9 

SW0C15 ( 5 ) 

9 

X AC  5 ( fc*  5 ) 

5 

E 3 A J 1 6 f’6 ) 

9 

XAC  MM 

6 

DC  0C7 ( 5 ) 

9 

X AC  7 ( 5 ) 

7 

OCCCB (5 ) 

9 

X A C 8 ( 5 ) 

R 

, r l r i ( 6 > 

9 

CLAt-l(fc) 

9 

c L C 2 ( 6 ) 

9 

F F H 2 ( 6 > 

1 

ZAP (10) 

9 

XCt  A( 10) 

COMMON  /6LKOAT5/ 


SCAN(6),  Y T P P ( 9 ) » 
f P Af P()1)*YTPP?(5)* 
SPAN3(6)*  Y TP  F 3 ( 4 ) * 
$FAN9(5)*  YPFIHS)* 
SPANS!!,)*  YE  F I 2 ( 3 ) * 


F K B ( 6 * A ) * FKCC6*  9 ) * 
F K S V (11,5), 

FKP ( 6, A ), 

F*A.  <5*5  )* 

FKF (5*3) 


CATA 


XNVPL 
YF  PIN 


0.0  *.17*  5?*  .39906*  . 5 256*  . 69  P 1 ? * . f 726  fc*  1 . 0 A 7 1 9* 
1.33946,1.  22372*1.  ?42SO*i.5?l74  /* 

0.53*  0.S3*  C.52*  C.S1S*  0.5C5*  0.99*  0.95* 
0.39*  0.3u*  0.12*  0.1C  / 


DATA  CGT 

o 

• 

o 

» 9 * . 8 » 

1.2*  1.6*  1.8*  2»*  2.9*  2.P*  3. 2*3. 6*9./* 

ATSV 

/ 1., 

2 . , ? < * 

9.*  5»*  6.  /* 

T PB  T 

/ 0.* 

0,2*  0.2 

5*  C • 3 3 » 0.5*  l.C  / 

FIG.  A , 1 . 

9,2-2  2 

OATCOP 

«*  + * 

DATA  FXAfi/.2S* ,2A* .23, .22* .20* .IB* . 17* .25* .37* .27* .AO* .A2* 
1 7*0.335*  .39*  , A A * .AC,  .495*  .5* 
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2 

.42# 

.44# 

.45#  .46# 

. 465# 

.475 

# . 50# 

.5  6# 

.56# 

.57,2*. 5 8# 

3 

.50, 

.53# 

.5  5, 

.576, .60# 

.62, 

6*0. 

*7# 

4 

.62# 

,6  6# 

. 6 9 5,  ,7  2 # 

.755# 

.63# 

• (t  9 

.79# 

. 7 65# 

.75# 

• 1 5 j 

5 

•RS# 

• 7Z  f 

• 76# 

•74#  ,85# 

. 76  5 # 

.96, 

.90# 

. 9 C# 

.67# 

.55# 

.5  4# 

6 

• e 9# 

,.?7# 

.25# 

.25,  .22# 

.215# 

.20, 

• ? p 9 

• ? 3/ 

.29, 

,4  4# 

.4  6, 

7 

.40# 

.41# 

.*1# 

.40'#  ,4f-. 

.40# 

.*0# 

.48, 

.5  2# 

.54# 

.56# 

.57, 

6 

.51# 

.53# 

• 54# 

.565, .57, 

.56# 

.6  0, 

.6  5# 

1 6 6 5# 

.66# 

.69, 

.69# 

9 

.64, 

• 66  # 

.68# 

.70,  .72, 

.76, 

.795 

# . 6 C # 

.51# 

.515# 

,605# 

.60# 

A 

.76# 

• 11  9 

.50# 

.52#  . 0 7# 

.9]  • 

.97, 

. 9 5 6# 

.9  5, 

.96# 

.93, 

.9?# 

B 

. 6 7# 

.896# 

.915, 

.945,1.6, 

1.05. 

1.15 

#1.12#].]# 

1.1# 

1.05,1 ,03# 

C 

.30# 

.29# 

.275# 

.26,  .245 

#.24, 

.22, 

• SC  9 

.35# 

.40# 

.45  , 

. 475  # 

0 

.41# 

.42, 

. 425, 

. 4 2 5 # . 4 2 # 

.415, 

.‘1, 

. 50# 

.54# 

.57# 

.596# 

.60# 

E 

.54# 

. 5 55  # 

.57# 

.5  8#  , 6,  C # 

.61, 

• 6?> 

.65# 

• # 

.71, 

.72# 

.72, 

F 

• r 7 j 

.69# 

.71# 

.73#  .70# 

.75, 

• t2  9 

.6  2# 

.54'# 

. f 6 5 # 

.65# 

. 5 45# 

G 

. 60# 

.82# 

,84# 

.66#  .90# 

.95, 

1 .ui  # 

.96# 

.47# 

c 

c ** 


.95, 
C 2 / 

• 31 » 
.46# 
# • 60# 


1.05,1.1#  i. 25/1.2#  l.lt#1.17»l  .11/1. 


.31#  .30#  .26# 
.4  6#  .<-6#  .4  5 5 
.60#  .61#  ,62# 
.745# .765# .75# 
.9  0#  «cl#  .43. 


.?e#  .? 5# 

.4  5 5#  .4  5# 
.62#  . 64  # 
.75#  «8C# 
.43#  .96# 


24# 

.23# 

• 51# 

.37# 

.42, 

.475 

.50# 

*45  # 

.*4, 

.54# 

.57# 

.60, 

.6  3# 

.6  4, 

65# 

• 66  5# 

,72# 

.74, 

.76# 

.76# 

.775# 

52# 

.66# 

.69# 

.90, 

. 9.  3 # 

.92# 

.9]# 

.40#  .cl#  .43#  .96#  l.c#  1.07#l.tR#l,05#‘i,l# 

» 1 .0  5# 1 .06. l ,C9# 1. 12 #1 .17.1 .27# 1 .26# 1 .25#  1 .26. 
.34#  .325#. 31#  .3C#  .275#. <5*  .34#  .41#  .46# 

.52#  .52#  .52#  .51#  «5o5#,6i>#  .60#  .63#  .67# 

• 7C » .705#. 71,  .72,  . 735#. 75#  .51#  .62#  .57# 


.665. .59# 


.91 5# .94# 


.63#  .67#  . 
.67#  .57#  . 

. . . 1,02#  1 . C 7 # 1 

,1.06, 1.05, 1,0 (») .0C#1»12#1 .19,1.2#  1.2 2 #1.26.1 
1.21#1. 22,1.24,1. 27#1.2#  1.26,1.4#  1.42,1.45,1 
.46#  .46#  , 4 * # «4C#  .36#  .34#  .42#  »5C#  .60#  . 
.75#  ,746. .74,  .72#  .70#  .t6#  .73#  .60#  .56#  . 
C#  ,9c# .96 ♦ 1 .01 #1.06# 1.19. 1 .22,1  .??# 
24,l.?3#1.2,1.2c,1.36,1.4P#i.4t#1.49# 

4 9# 1.4 7# 1.44# 1.5 5, 1.66# 1.77# i.73# 1.75# 

7*#  1.73#  1.71#  1.70#  1.65;  1.0,1.96#  2, 06#  1.9  8#  2.0 


«C6#1.C5# 

.21#i.2# 

52#  .55# 
71#  .72# 
c 9 # .69# 
.05 #1.05# 
.22,1.21# 
.4#  1.36# 
7C#  .76# 
97#  1.0# 


FI 01. RE  4. 1.4. 1-2  # tUTCrH 
C/TA  XBD4  / 0.C#  . 349C  7#  . 
Yf’04  / 0.0#  1.5#  3.5# 
Z 60 4 / C-.C#  C.5#  1.0 
F6P4  / 5*C.C#  C.O#  0. 

C.C#  - ,COC  7#  - 
G.O#  -.0019#  - 
0.0#  -.005,  -, 
5*0. C#  O.C#  C. 
0,0#  — . 0 0 1 # — , 
0,0#  “.CC7  # -. 
C.O#  — ,006#  — , 
5 * C . 0 # 0.0# 
n.C#  -.00]?,  - 
0,0#  -.002]#  - 
0 . 0#  — « 00  6 # — • 


****** 

69613#  .67267#  1.0472  /# 

6,0#  It . 0 /# 

oi  0.0,  - ,0C  02 » -.0005  # 

.002,  - , GC 2 7,  -.0037# 

.0044#  -.  00  6#  — . C C 0 # 

OR#  -.021#  -.026  5, 

C#  -.0005#  - , COG 6#  -.0011# 
0079#  -.0045#  -.0068# 

CC7#  -.0093#  -.013# 

016#  -.021#  -.0265# 

0002#  -.O0O6#  - , C C 1 # -.0012# 
•CC3#  -,CC4#  -.0052# 

.0066#  -.0066#  -.012# 

016#  -.0207#  - , C26  / 


XTYO  / C.f,  1.1#  1,4#  1.6#  2.0#  2.4  /# 

YXPN  / 0.2#  0.3#  O.i#  0.5#  C.t#  C . 7 /# 

Z 1805/  3. 764, 4. 34i), 5. 43?#6. 346,6.5  *5#]1.221#  4 .029,4.51  7# 
5.249#  5. 9 62# 7. 874# It. 2 64#  4. 295,4. 62  9# 5.127,5.6] 6# 
7.  CPI  # 5.  , 07  3#  4.7#4.4?4#  5. 3 27#  5. 4 32#  6 .26  7,7.691# 

5.3  71#  6.2  n,  5.  IP  f#  6. 3]  #5. 79  o,e,  f 36# 

6. 226#  5. 73 6# 5. 422#  5. 3 35#  5, 636#6  . 4 09  / 


FIGURE  4.1.4,7-25  CATOCM 
CiTi  X6C6  / 0.#  1.#  2.#  3.  /# 
1 vert  / . _ i - n . : 


***** 
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*X)30-siO'\7ixi*u>r\j»“-  -r*ujro^-*vOOo«^i(>vn-t'  r\)»-*vO  oo^jovn  X'ujpoh-*  rov-»  Ovji^toruK-*  oo*"J<J'Ui-r*«Lk>ror-»  ojroK'sOCD-sjr^^n^ 


c 

c 


,e#3*.72#  ,e».77#  .76,.792#.P#.79f#.792#  . 79# . 6# 3 * . 7 6# 
.96#.e9#.e3#.62#.9F,3*.c2,.ot.,.925,?*.9i5#.9F,3*.fP5  /, 

FPTAO  / 0.» .15 >.18,. 2*0., ,135#.23# ,2t#0.#.2#2*.275 # C . # . 29# 2*  . 2P» 
• 26#  .3  5#  *36 6#  • 2p  # • 26  # .265#  • > .96#  • 26 » » 905 * 2 ♦ • 9 5 c # .26,3*  « 975  # 

« 6 » , 5 3 5#  .55#  .565#  • 5 » . 585  # .61#  .62#  . 6 C 5 # 2 » .63».5»3*,65# 

. 75 #3*. 735# .75#. 7P» .795# .11# .75#?*. 6# .75,3* .82# 

.9t>#  .905».896#  .oP6».98#3*.05»  .95#  .95#2*  .C95#.9«#3+.96# 
1.17#1.0t»l.C3#l.#1.17#l.l#  1.06,1.  C6  5#  1.1 7# 1.09# 2*1. 065 #1.17# 

3 ♦ 1 • CP  / 


DATA  X 1 N 1 3 / C.0#1.»  ?,#  3.#  A.,  5.#  6 .#  ?.#  6.#  20.  /, 

Y I N 1 3 / 0.0#  20.0#  35.0#  50.0#  66.0#  72.5#  90  .C  /# 

ZCUT13/  .00973#  .CC972,  .C-C93#  .009#  .1  Of  c#  ,0(>«7,  A»C.0CPt# 

.00973#  ,00°72#  . 00=2  # ,009#  . ( C f 9 # ,CG87#9*G,0CF6# 

.00  97#  .0097#  • C 0 = ? 7 # . 0‘  C = (.  2 # .cC  P9>  ,00f  72#  9*.CC6fc2» 

. 009  6#  , CC‘9 1 # , 00=2  # .009  » , (.0  c 9 , .Cl =72#  9*0.00863# 

.00993# .00=92, .CCF9?# .CCE62# .CCf  75# . C0f 6# 9 ♦ . OOF 59 # 

• C0C3# ,0C93#  , CC6  6 # ,CCP7# , CC6  62# .C OP5»9*C. 00699# 

.CCC3# .0092# .0000# .C0P7# .0CP6?# .Of 85#9*C.0CP99  / 

CATA  ZCl«T19/l,2P»1.28#1.27#x,252#l,299#i,232#1.227#l,217#2  + l,21# 

1. 26»1. 26 #1. ?7#1. 252# 1.299#1.232#1. 227,1. 217,2*1# 21# 

1. 329, 1.3 ?A# 1.311# 1.295# 1.? P 1# ] ,?Pfc#l  .2fP# 1,29# 2*1  .23# 
1 . 36  3,  1 .? 6*#  1.3  5,1  .33# 1.213,1 .2  = 2#  1.2 63# 1.261  #2*  1.25# 

1 .392#  1 .392# 1 .2  F#1 .36# 1 .33  = # 1 .31  7# l ,3C2# 1 .?7C#2*1  .27# 
1.903#1.9C?#1.3c2#1.37i#i.?9c#l»225#l.?l#1.265»2*1.26» 
1.4G3# 1.903,1. 392# 1.371# 1.39=# 1.325# 1 .31# 1 .2f?» 2* 1.26/ 

DATA  APAP  / 22.0,  21.7#  19.2#  16.36#  22.0#  21.2#  19.2#  27.0,11.75# 
29. #29  . ,22. ,20. #20. #19. #17. #15. #29. #27. #25.#  2*0.  /# 

BM A P / 9 * 1.75#  3 * 2.G#  9 ♦ 0.0  / 


DATA  N X IN  1 5 / 6 /# 

X J N 1 5 / 0.0#  0.5#  0.6#  0.8#  0.9#  1.0  /# 

NYIN15/  5 /# 

YIM5  / 0.0#  5.0,  15.0#  20. Q#  23.0  /# 

F C0T1 5 / 0,66  5#  0.756#  C.71#  C.6#  0.51#  0.95# 

0.865#  0.756#  C.71#  C.6#  0.51#  0.95# 

C.926#  0.C65#  0.95P#.905# ,pA5#  0.7F# 

C.97P#  1.02,1.03#  1.02#  C.99,  C.975# 

0.  = = # 1.09,1.06#  1.05#  1.095,1.09  /# 

F CUT  16/  6 * 1.05#  T.C5-#  1.09#  1 . C 2#  . 9 9 # . 6 F,  . F9# 

1.05#  1.05#  1.09,  1.C1#  C.995#  0,965# 

fc  * 1.05#  6 * 1.05  / 

/ 0.7293#  0.8727#  1.0972#  1.2217#  1.3963#  1.5708  /# 

/ 0 , P 5 » 0.69  , 0.675#  0.51,  C.963#  0.98  /# 

/ 0 .3 665 #0.5  236# C.6°B1#C. 6 7 27,  1 .0972,1  .22 17#  1.3963 #1.6/# 
/ 0.65# .625# .925# .35#C. 275,0. 997#C. 976#  0,98  /# 


D*TA  XI 
Y 1 


X9 
Y9 
XAR 
YOCl 


/ 1.0#  2,3#  3.0#  9,G#  5.C  /# 

/ -0.16#  0.0#  0.05#  0.QP5#  0.C655  / 


DATA 


AAA  / 
8B6  / 

ccc  / 


ODD 

XTT 


DATA 


DATA  XCLDB 
1 YAKB 


F • 9 f 29  3 6-9#  8.03917E-4#  3.31  322E-6#  -1.72323F-3# 
2.02976E-3#  1.361968-9#  3.79206E-5#  15  * 0.0  /# 
-.0296929#  --.0290676#  -.0192(99#  .C31C1P5# 

-♦C73C5#  -9.C5767E-3#  -3.03595E-3#  15  * 0.0  /# 

1 » 2 3 c 2 5 # 1.15900,  1.C3P25#  O.iPfP??#  1 , 67192#  ,712689# 
.6293=4#  C.O#  O.C#  5 * 1.1C19#  3 * .275975# 

3 * 3.3057#  0.0#  0.0  /# 

-2.97C02#  -1.71998#  -1.9292,  -.559966#  -2.99739# 
.0188291,  .0607726#  15  + 0.0  /# 

.35#  .375#  .91#  .9£#  .37#  ,39#  .92#  .371#  .5#  .2# 

.3#  ,4#  .5#  .6#  .3#  .9#  ,5#  .3#  ,9#  ,5#  O.C#  0.0  / 

/ 0,0#  10,0#  20.0#  3C.G#  9C.C#  5G.C#  6C.0  /# 

/ C.O#  G . 2 5#  0.5#  1,0  /# 

/ 0.99 #0.951 #0.96 #0.966# C.o 73# 0.079# 0.971# 

0. =92 #0, =95 #0. 9=7,0.099,0. 096,0,9=2 #0.969# 

1. 0# 1. 0#C.  = 09#C. 997# u. CP f#0.=71#0.994# 

0.99 6, #0.092,0. 9 f:t#C. 975,0. C69#C.9?#C. 663  /# 

FFP7  / 0. 8C, o. 907,0. =23#0. 936,0. 949,0. 99?#C. 992# 

C.  =9#  C.c  9 9,1.  .999#  C.  3 = 8#  C.  9 * ] , (.  .976,0.95  6# 
0,9r6#G.O92#(  .9c7#0.9r#C.C61,C  ,029,0,66# 

0.  = P6#0. 96 P, 0.94  2,0.91  .( .6  7' #f ,B33#C,79  / 

/ 0,0#  0.3#  0.9#  0.5#  0.6#  C.7#  2,0  /# 

/ 0. 33,0. 352#C.99#C. 625# 1.0,1.47#  2,0  / 


XFVP 

YTP 

FEP35 


DATA  XTP 
1 YC1 


/ 0.0#  0.1#  0.2#  0.3#  0.5#  l.C  /# 
/ 0.0#  0, 225,  0.97,0. 5,0. 32#  0.0  /# 


139 


r>or> 


YC  2 
XSWP1 
Y A 
YB 

xr  y 

XK 

CTAB 


OTAB 

XXC  L K 

YYOY 

FCl^X 


XXC2 
Y Y MAC  H 
FDCLMX 


/ 0.0,0.22,0.5,  C . «51  > 1 . 05>  C.P5  /, 

/ O.O,  3C.C t 50.0,  60,0  , It 

/ 0.9,  1,0*#  1.2,  1.2  ft 

/ 0.0,  0,2*11  0 .It  0.71  /,  „ , 

/ 0.0,  2.G,  2.26,  2.5,  2.0,  A.C,  A. 5,  10.0  /, 

/ C. 2,  C .A,  C.fe,  1 .0  / 

/ P ♦ O.C,  “«C2,-.G2,-.26,-.22»-.355»-.Al»-«AA5,“.A5, 
.12, .12,  -.36,  -,S , -.6*,  -.72,  -.72, 

.68,  .5?,  -.15,  - . 2 A , ~ , T 7 » -.76,  -.*2,  -.92  /, 

/ e * 0.0,  -.085, -.085,  .(.2,  .055,  .CAJ,  .02,  .02,  .02, 
-.2,  -.2,  -.01,  -.02,  -„C2,  - . C7 , — , C 9 , -.09, 8*0. C/, 
/ 0.0,  .2,  .A,  .6,  .6,  1»,  1.2,  1.6,  2.0,  2. A,  2.8, 

3.2,  A. A /, 

/ 0.0,  .25,  .5,  .75,  1.0,  1C.C  / 

/ 0.9,  1.375,  1 • 57, • 1 ,6A  5 , 1.6A5,  1.575,  l.A,  1.1A, 

1.02,  .06,  .92,  .91,  .o,  .75,  1.28,  1.A8,  1.65, 

1.56,  1.6,  1.33,  1.11,  1.0,  ,9A,  .9,  ,F 8,  .875, 

.68,  1.19,  l.A,  1 . A 7,  1 . A 7 5,  l.A,  1.27,  l.Cfc, 

.075,  .92,  , Ef , .65,  .FA,  .6,  1.1,  1.3>  1.375, 
1.385,  1.32,  1.23,  1.06,  .96,  .9,  .866,  .8A,  .F3» 

.a, 1.02,  1.2,  1.29,  1.21,  1.27,  1.19,  l.CA,  .9A, 

.P3,  .FA,  .83,  .82,  .A,  1.C2,  1.2,  1.29,  1.21, 

1 . 27,  1.16,  1.02,  .91,  .F5,  . f 2,  .8,  .8  I, 

/ 0.0,  2.0,  A.,  6.,  P»>  1C.,  12.,  1 A • , 20./, 

/ 0.0,  0.2,  O.A,  C.6,  1.0  It 

/ -.11,  -.08,  C.C,  .115,  .23,  .325,  .36,  .22,  O.C, 

-.11,  -.08,  0.0,  .115,  .22,  .226,  .26,  .22,  O.C, 

-.11,  -.OF,  0.0,  .It  • 2t  .3,  .32,  .18,  0.0, 

-.11,  - «C 6,  C.C,  .08,  .16,  .21,  .205,  .08,  10*0.0/ 


*♦  FIGIRF  A.l.l.A-5,  DATCO*  ♦**++ 
Data  XDY1  / O.C,  1.1,  2.25,  2.5, 


XDY1  / 
Y XT'  T / 
7 0 1 8 A X / 


X0Y2  / 
YFCC  / 
Z0C1M  / 


72DC1M/ 


O.C, 
0.3, 
0.8, 
0.8, 
C.6, 
0.F-, 
0.0, 
0.0, 
10*0 
0 • 0, 
0.1, 
c 

0.2, 
9*C., 
. 1 , . 
.2,  . 


1.1,  2.25,  2.5,  3.0,  3.5,  A.,  A.6,  fc.  It 
C.3  5,  O.A,  G , A 5*.  / , 

C.8,  1.315,1. AS, 1.5F,1.6F,1.6A,1.A7,1.A1, 
0.8,  1.315, 1, A3, 1, 51,1. 52, 1.A9, 1.91, 1.36, 
C.6,  1. 21 5, 1. 39, 1.A5, l.A 5, l.A 2, 1.35, 1.3  A, 
0.6,  1.3,  1.23,1.25,1.36,1.22,1.22,1.3?/, 

1. 0,2.0,?. 2, 2. A, 2.6,6.2,10.0  It 
2.0,  A .0,  6 . C , B.C,  1 C , 0 It 
.0,  0.1,  0.13,  0.15,  0.1A5,0.05,  0.0, 

C. 11, 0.27 5, 0.3, 0.2, 0,2 2,0. 1C, C.C, 

0.26. ,O.AA,L*.Ar5»O.A5,C'  .20,0.17,0.0, 

0. AC, 0. 60, r, fc?0,0. 60, 0.3C,C. 25, O.C, 
j.  AC,  0.60,  C>.62C,f.6C,C.?  9,  C.?6, C.O  / 


. 15, 

.25, 

.28, 

.2  7, 

. IF, 

, c7, 

.07, 

28, 

.A9, 

. A7, 

.Al, 

• 2 6 , 

.12, 

.12, 

Al, 

.61, 

.60, 

.5  5, 

«?6, 

.17, 

.17, 

52, 

.68, 

.66, 

.60, 

,20, 

.2  0, 

.20, 

52, 

.68, 

.65, 

.60, 

.29, 

. ? C, 

.20  / 

XSP  / 0.0,  10.0,  2C.0,  30.0,  AC.O,  5C.C,  60.0,  90.0/, 
YCYA  / l.C,  1.2,  2.0,  3.0,  A , 0 , 5u.C  it 

F C A / 1.8,  2.2,  ?.A,  6.G,  7. A,  1C. 2,  12, A,  13. A, 

1.5,  2.2,  3, 5.0,  7. *,  1C. ?t  12. A,  13. A, 

0.1,  1.1,  2.3,  2.9,  5.?,  6.75,  *.9  , 9.9  , 

1.3,  1.7,  2. *,  2 .it  A .ct  5.3  , 6.7  , 6.7  , 

2. 2,  2.0,  7.1,  2.2,  2.6,  2.86  , 2.25,  3.25, 

2.2,  2.0,  2.1,  2.2,  2.5,  2.85,  2.25,  3.25  / 


OATA  X A 8 / 0.0,  1.0,  2.0,  3.0,  A.O,  6,C  /, 

L YC C'  / -1  .,  -.75,  -.5,  -.25,  O.C,  .25  , . 5,  .7  5 /, 

» FKV0F8  / 1.57,  1.7*,  2.C2,  2, 20,  2.56,  2.75, 

1.78, '  1.95,  2 . 18,  2.52,  2 . 6r,  2.90, 

2.03,  2.21,  2.A2,  2.71,  2.60,  2.15, 

2 . *8,  2.60,  2.73,  2.92,  2.19,  3.33, 

2.13,  3.15,  3.20,  2.2s,  2.  *6,  2.60, 

2.79,  2 • F C , 2.81,  2.82,  2.FF,  3.98, 

6 * * . A 5 , 6 * 5.0  / 

X A K'O  / 0.0,  .OtQF,  . 12  96,  .209A,  .2792,  .3A90,  .A166,  .A886, 

0. 558A,  0.696C  /, 

YPTTC  / 0.0,  0.02,  0.05,  C.08,  0.12,  (.16,  C.f  /, 

FRA  / 0.A6, 0.7*5,0.676,  7*C.O, 

1 .0,  . 62,  .*0,  .2  55,  . 19,.  1A8,  .11  , .079,  .6.5,  C.C, 
1»0,.8A,»72,,AS,.3A,.262,.1C6, «1A2, .1,  C.C, 

1 « 0,  . 90,  . 8 5 6 , .75 8, . 1 1 8, . *6, . 3 * 6, . 26  , . 17,  C.O, 

1. C,. 917, .885,  .819, . 72, .62,  .51  , . 38,  .22,  0.0, 


DATA  X A K'O 
! YPTTC 
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1 .0,  . 92 .895,  . 835,  .76,  .665,  .565,  .96,  .35,  0.C, 
1.0/ . 92  5,  .895,  . 835,  .76, .665,  .‘65,  .96,  .35,  0,0  / 

XC2  / 0.0/  1.0»  2.0/  3.0/  <.C,  £.0  /, 

YAM  / C.Oz  2.0/  3.0/  *.0/  5.0,  6.t,  7.0,  <5.0/  30.0  /, 

FOAM  / K. ,7. ,9.,  1 .*/0.z  .5/  8 . 6/ 5 . 5 , 2 . £ z . 5, - . 3/ . £ , 

7.£z9.,l.,-.6/-l./5z  5.£/1.5z-1.2/-2.£/-l./,5/ 
3«z_i.£/“9.1,-3.z-l./.£/  »2/-9.£,-5./-3./-l»/  .5/ 
-?.3/-6.5z-5./-?.z-l./.£/  -9,5/-7.z-5./-3.,-l.,.£, 
~8 . z-7 • /-£ ./-3 ./ -1 •/ C , £ // 

XCT  / 4.0/  6.0/  F.O/  10.0/  12,0/  14. C /, 

YH  / 0.2/  0.4/  G.fc/  0.6/  l.C  // 

CDA 82  / C./1.5/9., 7.2/11. /!£</  C.z.P/3./6./9.5/13.5z 


C./.3/1  .6/3.?/! 


■zf.fcz  C . /O « / . £ / 2 . / 4 . / 7 . / 


C 

C 

C 

*44*44**44 
*44*4**** 
4*4*4*4444 
4**4  *4  4*4 


! 6./  ,8/  ?./  fc»*  9.5/  13.5  / 

CATA  XXXC18  / 0.0/  .2/  .4/  .6/  .8/  1./  1.2/  1.6/  2.0  /, 

L FC18XX  / C. 7/1. 2/1. 27/1. 43/1. 43/1, 366/1. 2£/l. OF/. 99/ 

l .65/1  .12 . 1.29/  1. 355/ 1 .366/ 1 ,3C£z 1.2 1/1.07/ .98/ 

! .6/1.09/ 1.2 3/1. 29*1.295/ ].?*,] .1 7/1 .05/ .97/ 

» .£5/ 1.0/ 1.15/ 1.23/ 1.24/ 1.20/ 1.15/ 1.04/. 96/ 

* .£  / .°  1/1. 09/  1. 17/1. 2i‘/l  .175/  1.13/  1.02/  .935/ 

; .£/, 91/1. 04/1, 17/1, 2 C/1. 165/1, 11/1, C/. 91  / 

DATA  XX  / 0.0/. 4/  .8/1.0/1.2/1.4/1.6/2,0/2.4,2.8/3.2/3.37  /, 
l XY  / 0 ./ . 1209/ . 1745/ . 26  1 6/ .3490/ .4262/1  .0  /, 

! XF  / 5*1.0,. 915/. 62/. 29/C. C, 

( 6*1.0, ,cl£, .63/, 29,0.0/ 

’•  7*1 .0/ .41  5,  .755/ .52/.  245,0.0/ 

> l.C/,97/, 95/. 97/1.0/ .c5/ .87/, 69, .£52/. 38/, 185/0.0/ 

j .92/  .r0,  .90  / .95/  1,0,  .95/  . ( s,  .98,  ,31,  .15C/0.0, 

I ,7C/  .60/.f  <-/.9]/  1 .0/.94  5/.6?/.£f  £/  ,4  2 5/.  27  / .128 /(  ./ 

! .79/.6P#.f4/.91,l.C/.c45/.F3/.5f  5/ .425/ . 27/ . 1 28/0  . / 


44*444444  *44444 

4**4444444  DATA  FOR  D A H A G E ECUATICNS  444444 

4*44 4* 4*4  44*44* 

***+444*4*****444444*44*+*4**444+****44**4***4<*4*****4**+****4*4*44+ 

c 


C0MPRFSS1PILTTY  FACTOR/  FIG  2- 1 5/ F 7 F-l 8CC 

DATA  XNACH3/C.C,  0.2/  0.9,  0.6/  0.6/  0.9/  0.98/  l.C/  1.C5, 

1 1.1/  1.2/  1.9,  1,6/  1.8/  2.0/  2,2/  2.9  // 

2 CCKK3  /l.C  0/  1 .00/  1.03/  1.0s-/  1.20/  1 . 26/  1 .95/ 1 .9C,  1 . t 5/ 

2 1 .3  8/  1 ,22/  1 . C 9 , C . 90 / 0.76/  0.57/  0.60/0.55  / 

CDC  FCR  HOOFS, FIGURE  2-16  FZP-18C0 


CATA 

XL  rW3 

/ 1.0/  2 

.0/  9. 

3/  6,0/ 

7.0/  10 

.C  // 

1 

HCX3 

/e.cc?, 

C . 0 1 0 / 

C .020/ 

0.060/ 

f.  .ICO 

/ / 

0.110/ 

2 

f DG3 

/ 0 , C >/  £ / 

0.015/ 

C.C9E, 

O.JCt, 

C . 11  ( / 

3 

C • 009, 

C.022, 

0.08C; 

0.175/ 

C.1CC, 

0.160/ 

9 

0 , 0 1 £/ 

C . C 2 c / 

0.126/ 

0.2 75/ 

0. 3C0/ 

0.300/ 

5 

0.025/ 

0.060/ 

0.21 5/ 

C .230/ 

0.970/ 

C.  •>(.>./ 

0 . f C £/ 

1 6 

0.090/ 

C.099, 

0.775/ 

0.820/ 

0.820 

WING  ROUGHNESS  M AfN'  T F I r AT  ION  FACTOR/  Fjr,  2-19/  FZP-1800 


CATA  XCC3 

1 CLC3 

2 X83 

3 
9 
5 


/ C . C » 0.2/  0.9,  0.6/  0.8/  l.C1  / / 

/ 0,0/  0,2/  0.9,  0.6  /, 

/ 1.35,  1.66,  1.50/  1.30/  1 .07/  ( .*3, 
1.35/  1.55/  1.50,  1.30/  1.07/  0.83/ 
1.05/  1.75/  2.15/  1.83/  1.30/  0.83/ 
1.05/  1.75/  2.15/  1.83/  1,30/  C.83  / 


FOR* ARC-FACING  STEP  PRESSURE  COEFFICIENTS/  FIG  2-13/  F7P-18CC 

CATA  Y K A f P 2 / 0.0/  0.9/  0.6/  0.9/  0,9£,  1,0/  1.05/ 

1 1.1,  1,2/  1,6/  2. 0/2.9,  p, 8 /, 

2 CP  F 3 / 0.90,  0.99/  C . 5 ? / 0.56/  0.56  / C.61,  0.60/ 

3 0.57/  C.51,  0,28/  0.27/  C.2S,  0.25  / 
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noo  oo  no  ooo  ooo  ooo  ooo 


V 


! 


I 


c 

c 


AFT-FACING  STEP  PPESSL’RF  COEFFICIENTS,  FIG  2-13,  FZP-18CC 

PAT#  7PACH3/  C.O,  0.4,  O.f,  0.9,  0.96,  1.0,  1 . Of  > 

1 1.1,  1 «?,  1*6,  2.0,  2 .4  , 2.6  /> 

2 CPA3  /-0. 20,  -0.20,  -0.20,  -(..21,  -C.4C,  -0.53,  -0.48, 

3 -0.45,  -0.2«>  -0.19,  -0.14,  -C.ll,  -G.1C  / 

CAVEO-IK  PANELS  , FICUFE  2-17,  FZP-16CG 


CATA 

Xt  CH4 

/10.,1? . 

,15., 20. ,26. ,30., 

40., 50., 

60 ., 80 . 

,100. ,120 

1 

HCX4 

/ . CC‘0'2, 0 

.0005,0. 

001,0.00? 

,C.0( 5,C 

. 0 1 C > c . 

C 15 

? 

CD  04 

/C  .0250, 

C.C15C, 

C.011C, 

0.CC6C, 

C.004C, 

C.C028, 

3 

0 .00 16  » 

0 . 00 10, 

U.0CC7, 

C.CCC4, 

c.coc?, 

C..CCC2. 

4 

C.C >3fcC, 

0,0210, 

C.O 160, 

c.cc-cc. 

C • CO  5 c , 

O.CC-40, 

5 

0 . Oc2  2 , 

C.C034, 

0 .O.OiC, 

c.ooot, 

C < CC’C  4 , 

0.C0C3, 

6 

0 . 0 5 0 , 

0.0270, 

C # C 2 C 0 , 

0 • u 1 1 0 , 

C . C C 7 v , 

G.CC50, 

7 

C-.G02  8, 

C.CCIR, 
0 ,C?60, 

C.001?, 

C.CCC.7, 

O.GOC5  , 

0.0CC2, 

8 

C.0650, 

O' . C 7 9 0 » 

C.C16C., 

C.C ICC, 

C.CC72, 

9 

C.0C40, 

0 • Of?  6, 

C . 0 C 1 (" , 

C.0010, 

0 .oOufc, 

U.00C4, 

J 

0.0770, 

0.0460, 

C . 02  5u, 

0.019C, 

C.C 120, 

C.CCF6, 

1 

C.C048, 

C-.CC31, 

O.Gv/21, 

0 . CO  1 2 , 

0.  Dt-C-8, 

0.0006, 

2 

0.09 70, 

C.O 5 70, 

C.043C, 

0.024C, 

C .0150, 

U . 0 1 C 6 , 

3 

0 .ol<(0» 

0 .CC38, 

o.rc?6. 

C . ( C 1 5 , 

C.0C1C, 

0.C0C7, 

4 

C.110C, 

0 ,C6  5'U, 

0.049(1, 

0.(2  i C , 

C.OIFu, 

0.0120, 

5 

0.CC7C , 

0.CO45, 

0.C031, 

C .( 037, 

G.CC11, 

G.cooe  / 

FFFFCT  OF  SEVERING  NOSE,  SPHERICAL  SHAPE,  NACA  PH  L52014A 


PATA  PATIC3  /C.C,  0.2,  C.4,  O.t,  0.7,  C.F,  C.9,  1.0 


/, 

/> 


1 l.-HACH  /C.  0,  C.  8#  0. c,  O'.tf,  1.  C,  1.1,1. 2,1.  6,2.  0,3.0 

2 DRAGS  /O.C,C.C,fi.f,C.C‘,O.C,C.O,O.C  3C,G.04C, 

3 0. 0*0.0, C.O, 0.C,C  .0,C.C,C.G3C,C  .C4C, 

4 0 .C, C.  0,  (•  .G,0.00f,0. CIS, 0.(  SC,  C.O  fcf, 0.150, 

5 0.0,C.(,C.0,u.C10,C.o27,C.0?(,O.09C,C.2?0, 

fc  0.0,  G.  (.,C.  C,0.02f,  o.C  j4,  C .u5  0,1  .1  60,  C.295, 

7 0. C, -. Cl  0, C. 0, C. 024 *U. 05 3,0. 7 20,0.717,0.330, 

8 C’.o.-.C  1 (i , v . 0 ( 5,C  .054, ( ,l(  ?,r  ,3  8 ? . 0 . ? t b,  0.410, 

0 C.0,C-.01u,C  .Ofu,C.  155,0.245,0.2  5 e,0.44f  ,0  .440, 

J C.O,C.C??,C . 0(0,0.210, C. 213, C. 42 5, 0.5(2, C.7C2, 

1 0. C,C;f??,C.OPC,C.<lC«C. SI9, 0.425,0, *62, 0.7C3  / 

FFFFCT  OF  FLATTING  SPHERICAL  "CSE,  NACA  TN  4201  ( PP-3F ) 

CATA  XLTC  / C.O,  C.l,  C.2,  0.3,  0.4,  0.5  / , 

1 VMACH  / 0.0,  0.8,  C « c,  l.C,  1.?,  2.5  / , 

2 OP  AG  4 / 0.705,0. '•35,0.275,0.225  ,0.098,  0.0, 

3 0.705, 0.535, 0.275, 0.225,0.048,  c.O, 

4 0. 695, 0.525,0. 365,0.215, C .( 90,  0.0, 

5 C. 646, 0.400,0. 341, C.2CZ, 0.063,  0.0, 

fc  0. 667,0. 4(0, C .213, 0.161, 0.075,  C.C  , 

7 0.64  7, 0.460,0.21  3,0. 1(  1,  0. C75,  O.C  / 

effect  op  missing  l.e.  panels  cn  lift  curve 


CATA  DETA1 
API 
CLA’ 


0.0,  0.2,  0.4,  C.6,  0.8,  l.C  / , 
0.0,  3.w  5.0,  7.0,  lc.vi  / , 

0.0,  -C-.C021,  -.0038,  -.0052,  -.0064, 
0.08,-0.(021,  -.(C?8,  -.0052,  -.0064, 
5.0,  -C  • ( 0 3 2 , - » 0 C 5 b , - » ( t •*  C , -.O’aCC, 


-.0075, 

-.0075, 

-.cue. 


C.O,  -C.CC.3P,  - . CC70,  — . ( 0 4 ( , - . G1  ?C , -.0135, 


6 

OvO, 

-U.GC3Q,  - .0070,  - » C C c 6 , 

-,C1?C 

-.0125 

CATA 

0ETA7 

/ 

0.0, 

C.2,  0.4,  0.6,  C.f*  l.C 

/, 

1 

SVP0C2 

/ 

-9.0, 

C.C,  7C.G,  4C.C,  80.0 

/ , 

2 

CLA2 

/ 

0.0, 

-.0C02,  -»00'03,  -.COO4, 

-.0004, 

— 

. C C C 4 , 

i 

0.0, 

-«00<j2,  -.C'CCS,  -.0004, 

- .0004, 

#0004, 

4 

0.0, 

0.0  ,0.0  ,C.C  , 

C.O  , 

0 

.0  , 

5 

0.0, 

C.oroo,  0.0CC9,  O.Cl  12, 

l . o 0 1 5 , 

0 

.0018, 

fc 

0.0, 

C.CCG5,  C.C0C9,  C.0012, 

C.C 015, 

0 

.0018  / 

CATA  F T A 1 3 / O.C,  0.2,  C.4,  0.6,  C.ft,  1.0  /, 

1 CL  A3  / C . (.  C 1 7 , 0.0006,  C.O,  C.ljt'F,  C.C024,  0.C042  / 

EFFECT  CF  MISSING  T.f,  PANE  L 5 ON  LIFT  CURVE 
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i 


t 


c 

c 


c 


CATA 

DETAA 

/ 

C.C, 

C.2,  O.A,  0.6, 

0 . 6, . 1 .0 

/, 

1 

AS  A 

/ 

C.L, 

?.c,  5.0,  7.0, 

1C.C 

/, 

2 

CL  A A 

/ 

0.0, 

- . 0 J 2 0 , -.0136, 

-,t  -J t C , 

-.0063, 

— 

.0C73, 

3 

o.e, 

C ?G,  -,CC3r* 

- . C C L C , 

- , CC6  3, 

- 

.0073, 

A 

C.C, 

— . C G 3 0,  — « C u 5 5 , 

- . CC  7 7 , 

- • CC96 , 

— 

. Cl 1C  , 

5 

c.c, 

- . C C?  7,  - , COP  5 » 

- . L 0 c 1 , 

— .011  A , 

- 

,0130, 

6 

c.c, 

-.0037,  C06L , 

-.CC?1, 

-.011  A, 

.0120 

/ 

DATA 

0ETA5 

/ 

c.c, 

C.2,  O.A,  0.6, 

C.P,  1.0 

■ /, 

] 

SV.FCC5 

/- 

O.C, 

C.C,  20.0,  AC.C, 

f c.o 

/ * 

2 

CLAS 

/ 

c.c. 

-.err?,  -.cco?. 

- .COCA, 

- . C C C A , 

— 

♦CGC5, 

3 

c.c, 

- ,G‘0o2,  -.  CCC3, 

-.CCU, 

-.COCA, 

— 

. CC  C 5 • 

A 

o.e. 

L.O  ,0.o  , 

0.0  , 

L.C  , 

0 

.0  , 

5 

0 < v. , 

C.CGG7,  0.0C12, 

C.C015, 

C.CC-17, 

c 

.0319, 

6 

l .c. 

0 .0007,  C.CC12, 

C •( C 1 6, 

C.C017, 

0 

.eel? 

/ 

OAT*  ETA16  / 0.0,  0.?,  C.A,  0.6,  C.f,  1 ,C  /, 

1 CUt  /-0.CC17,  -.CC1C,  -.0002,  UCC0P,  G.C021,  C.CC36/ 


i 


f 


| 

I 


c 

c 


c 

c 


EFFECT  OF  CUTOUT  CHCFC  LENGTH  ON  • TFT  CLISVE 

FFC-f  6F1TISH  DATA  5 H F £ T , VOL  2A,  V INC5  C1.C1.0A 


DU.  OPCF 
CCCC 
CL/CLA 


/ 0.0,  0.2, 

/ C.C,  0.?, 

/ l.o,  i , c a : 

l.c,  1.0  , l.o  , 

l.G,  0.075,  u. 95 3, 
l.C,  G.965,  0.91C, 
1.0,  C ,c  2G,  0.P5C, 
1.0,  C.BSC,  C . 770, 


O.A,  0.6,  O.P,  l.C  / , 

0.3,  C.A,  C.L.  C.6  / , 

l.OFf,  1.112,  1.155,  1.165, 

l.r  , l.C  ,1.0  , 

C.92C,  0,C1G,  0 . F 50, 

C , *•  7 C , C.P3C,  0.79C , 
0.7fC,  G.72C,  0.67C, 
0.6‘C,  0 . 6 GC , 0,550  / 


EFFECT  CF  HISSING  L . E . PANELS  ON  AfFCCYN/PlC  CF6TEP 


CATA 

0 E T A 1 1 

/ 

C.O,  0 

» 2 , O.A, 

0.6, 

O.P,  1. 

0 / , 

1 

API  ] 

/ 

C.C.  3 

. 0 , 5. C , 

7.0, 

1C.0 

/ > 

3 

X AC  1 

/ 

v . Ov.  0 » 

G . 0 i , 

0 . C 7 A , 

c.n  *, 

C . 1 c3. 

0.1  PA, 

3 

O.OCO, 

O.C3c, 

0.C7A, 

o . i 1 2 , 

C . 163, 

0.16A, 

A 

0 . 0 0 0 , 

u . 030, 

0.060, 

C.OAi, 

C . 1 23, 

l.155. 

5 

O.OCO, 

C.C-25, 

C . 0 5 1 » 

0 . C 7 P , 

0.1C6, 

C . 1 2 5, 

6 

0.000, 

C .02  3, 

C.C51, 

0.C7P, 

0.106, 

0.135 

C«TA 

DE  i m 

/ 

OvO,  0 

.2,  O.A, 

0.6, 

C.P,  1. 

0 / , 

1 

SCCC12 

/ 

-9.0,  0 

• C,  20. 0,  AC.C,  P(J.O 

/, 

2 

X AC  2 

/ 

c.oco. 

0.003, 

C.0C5, 

C-.GCP, 

C.C1C, 

0.013, 

3 

0 . 0 C 0 , 

0 .CC  3, 

0.CC5, 

c.crp, 

C.CK, 

C .013, 

A 

0.0  , 

0.0  , 

o.e  , 

c.c  , 

C.C  , 

C.O  , 

5 

0.0  , 

- .CC  3, 

-.006, 

-.010, 

-.CIA, 

-.C  20, 

6 

o.e  , 

- .GO  3, 

-.006, 

- .010, 

-.CIA, 

-.020 

/ 


/ 


CATA  ETAI13 
1 XcC  3 


/C.C, 
/ 0 , 0 5 


0.2,  0 . A , 

5,  C.C30, 


0.6, 

C »COb, 


o.e,  l.o 

-.GIL, 


/ , 

-•03A, 


-.050  / 


EFFFCT  OF  PISSING  T.E.  PANELS  CN  AFP  CTYMPir  CENTER 


CATA 

CETA1A 

/ G , C,  C.2,  O.A, 

0.6,  O.P,  1.0 

/, 

1 

APIA 

/O.O,  3.0,  5.0, 

7.0,  10.0 

/, 

2 

X A C A 

/C.COC,  -.(11, 

-.020,  - . v 2 7 , - 

. (.  ? 3 , 

-•C?7» 

3 

c-.ccr,  -,ni, 

— * C ^ v , — .02/,  — 

. C 2 3 , 

-.(37, 

A 

C.COt,  - « L 12, 

-.(<?,  - . C 2 J , - 

.079, 

- .CA  5, 

C 

> 

y.OOG,  -.01  A, 

-.026,  -.036,  - 

.LAP, 

-.062, 

6 

0.000,  *■  .0 1 A , 

-.OZfc,  -.036,  - 

• 0A5, 

-.052 

DATA 

1 

2 

3 

A 

5 

6 


0FTA15  /C.C,  0.2,  0 . A , C.6,  O.E,  l.G  /, 

SVCC15  /-9.0,  C.C,  20. C,  AC.C,  PC  .0  /, 

XAC6  /O.COC,  C • 005,  C.OCA,  J.C13,  0.C16,  G.C19, 
O.CCC,  0.CC5,  O.ro«,  J.ca2,  0.C16,  C.C1°, 

c.r  , o.o  , c.o  , o.o  * c.c  , c.c  , 

0.0  , -.0(6,  - .C 15,  -.02),  -.(26,  -,C3C, 

0.0  , -.00?,  -.015,  - ♦ CZ 1 , -.026,  -,G3vJ 


/ 


CATA  E T A ] 1 6.  / 0.0,  0.2,  C.A,  C.6,  C.P,  1.0  /, 
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onnnnn  or><">  nr>  non 


1 


EFEECT  CF  HOLES  IN  VINC  CN  LIFT-CUPVE  AND  PTLAR  SHAPE 
DATA  CL01 


CLAH1 


/ 0.0#  0.02#  0.0*1,  0 • 06#  O.OE#  0.2  A# 

/ i .u#o.9f i»c.952#c.9io#c.f5f#  g.pee/ 


DATA  FLC2 
1 f cH2 


/ C.O#  C.C2#  C.G4#  C.Of#  G.OF#  f.20  /# 
/ l.e#0.904#C.759#0.6e4#0.4G4#  G.404  / 


VOPTEX  LIFT  INCFENE*JT  FOP  HISSING  UNG  TIP  (SUC0AH2J 

CATA  7 A P /O.G»O.S»l.('»1.5#?.0#?.5»?.f#2.5/A.C»K.O/* 

1 XT  I A /C.C2P6#  0 • 0 2 6 0 > C.0175#  C.C1C4#  G.Cc4C# 

2 -C.CC2C#-C.0C6f'#-C.G]C0#-t.Cli0#-C.0]10  / 


CATA  FGF  E l F VON'  OALCL'l  ATION.S 


COHHDN  ELK0AT5 


0AT4 


S PA  * / 0.0,  0 .?>  0.4#  O.fc#  C.E#  l.C  /# 

YTFR  / O.C#  0.26#  0.5#  J .C  /» 

FK3  / 0.0#  G.3#  0.565#  0.11,  C.425#  1.0 # 
0.0,  C.28#G.53»  C . 7 5 # C . 9 1 5 # 1 • G » 
C.C,  C • 2 6 5 # 0.51#  0.73*#  0.<=,  l.C# 
C.C#  0.25#  G.4?#  C . 70 » 0.866#  l.C  /# 
FKD  / O.C#  f . 3 f.  # C' . 6 4 > G . E A # C.c6t#  1.0# 
0.0,0.295,  0.5A#  0.74#  C.9#  l.C# 
0.0#  0.2A#  C.A75#  0.68#  C.P55#  1.0# 
C.C#  0.2#  0 . A # O.t#  C.F#  1.0  / 


CATA  SFAK-2  /0 .0#  0 .1  #0 . 2#  0 . 3 » C . 4,0 . 5#  C . 6#  C , 

" 1.0  /# 


1 YT°»2  / C.C#  C.2#  C . 33  ? » C.5# 

2 PKSv  / 0.0#  0 . C 2 4 5 # 0.0435# 

? C • C 3 ? C » 0.0212#  C.0312# 

A G.C#  C . 0 ? 1 C # C.CAfcC# 

5 G , 0 4 0 0 # 0 ,02  5<j»  G.G’AOf 

6 C.O#  C.029C#  0.046 C> 

7 0.0510*  0.0  A 1 C # C * 0 2 9 C # 

P C . <-  » 0.C27  0#  0.0A5C# 

9 C.05A5#  0.0450#  C.033C# 

1 O.o#  0.0225#  G.OAOC# 

2 C.OtOO#  0.0520#  O.GACC# 


0 » C 4 c0# 
0 . L C 3 c # 
0 . 0 : A 5 # 
C . C 1 2 0 # 
0 . C 5 ( G # 
G . G 1 5 G # 
u . 0 5 6 C # 
C.C  IT-# 
C.C6F5  > 
O.C23C# 


,7#C-.e»G.9#3  ,C  /# 

O.CAFG#  C.0A17# 
C.C# 

0 . C 5 1 5 # 0.053C# 
C.C# 

0 . G5  c0#  C..0570# 

G.C# 

O.CflO#  C.06C0# 

r'.C6C5#  (.0620# 
G.C  / 


DATA 

SPAN'S 

/ 

0.0# 

0*2#  O.A#  O.fc#  O.P# 

1. 

( /# 

1 

Y T PP  3 

/ 

O.n, 

f'.Pb,  0.5#  1.0  /# 

2 

FKH 

/ 

0 • 0 » 

U.645#  1.045#  1.2AC# 

1 

.320# 

1 .33C# 

3 

0.0# 

0.440#  0 , 74 0#  0.955# 

A 

.(  7C# 

1 .12C# 

A 

0.0# 

C.31C#  0.575#  0.776# 

0 

.°?G# 

1.C-3C# 

e 

«# 

C.C# 

0.200#  OiACO#  0 « 6 G 0 # 

0 

• puC  # 

l.CGC 

DATA 

SPAN  4 

/ 

C.O, 

0.4#  G.C#  1.6#  2.4 

/# 

1 

Y F I i 

/ 

0.0# 

0 .05#  0.1#  C . 1 5#  C. 

2 

/# 

2 

FK  A 

/ 

0.0# 

C . 3 P » 0*66#  1.00#  1 

.1 

2# 

3 

A 

r 

fc 

DATA  S PAN  5 

1 YFFI2 

2 F8.F 
•a 

A 

FS’C 


0.0# 

G.C# 

0.0# 

C.O# 

0.2# 

0.0# 

A.OG# 

3 • 4(  » 

2.96# 


f;,AC#  0.74#  1.12#  1.32# 
G.  4C#  C . f 3#  1.36#  1.75# 

C , 5 7#  1 . C 5 » ).“1#  2. A?# 
0.70#  1.27#  2.3A#  ?.?7  / 
G.A#  0.6#  0.6#  l.C  / 

C1  * 1 # C.2  /# 


1.60#  0.60#  t • 17# 
1.55#  C.f 5#  0.26# 
l.Afc#  0.72#  O.AC# 


0.0# 
0.12# 
0.2  5 / 
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Ti 


r 


! 


I 


! 

! 


! 

t 


C 


c 

c. 

c 

f 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


CVERIAY<1,0) 

P»CORAP  X1KPT 

CPPNON/INPUT/  A (30  PI ) 
rmCN  /Cl-T  PIT/  P « ? ? 3 ) 

CPP^ON  /CALC/  C ( 50 ) 

ccnncn  /plkcati / rn*ii) 

(•  r- ^ f r K /PIKPAT?/  F C «3C*e  ) 

CQNNCN  / P LK  T 1 1 / TITLMP) 

CCNNQN  / f L K PC  T / K PRINT  (50) 

CONGA  /P.LKCV1/  IJ 

01  PENSION  MR) 

Ot  T A V /AHNEU  , 4HDANA,  4HCHAN,  AHENP  / 

IM  IJ.Gf.l  ) CP  TO  70 
20  CONTINUE 


RFAP(S,1CLC)  (TJTLF  ( I ),  I « 1,6  > 

IF  <FPF(5).NF.C)  CG  TC  75 

vpite (6,2cco)  (inum,  i*  1,6  ) 

PE  AO ( 5, 1 CC 1 ) < P P» INTt I ) # I ■ 1 , 5 0 ) 

CP  50  1 - 1,  5C 

I F ( KPFIM(I)  .C-T.O  ) VP  ITE  (6,2001)  1,  KPPJNT(T) 

5C  CONTIK'E 
r/LL  SETUP 
PPCC-RAN  IAPT  CAL  I FP 
CALL  CVERLAY(4HCVIY,1,1) 

IJ  « 1 

GO  TO  60 

7C  RFAOtfKCC?)  WTPO 

I F ( E t F ( 5 ) . N E . 0 ) CALL  EXIT 
I F < VCRC.rC.K3)  ) CALL  rVERl  A YC  AHPVIY,  1,3  ) 

!F(  UOFr.FO.U?)  ) 1 J 1 
I F ( vrR0.EC.U2)  ) CALL  0\  E F t A Y ( AHC  VI V,  1,  ? ) 

IF(  VOPO.FC.v (?)  ) IJ  • 2 

IF  (vCFP.ec.V (2).rR.VTPD.EC.V(3)  ) CC  TO  PO 
I F ( VCRO.EO.V (A)  ) GG  TC  20 

VP  II  E ( 6, 2C02  ) V'CPC 
CALL  EXIT 

75  IF  (1J.GE.1.ANP  .KPRINT(2).EC,1)  CALL  XCOFYMc) 

CALL  EXIT 

6 0 CONTINL  E 

1C00  FORMAT  ( 6 A 1 0 ) 

10J1  FORMAT!  5011  ) 

1002  pnRA  A T ( A A ) 

2000  cOuNA  T(  lHl,  /////,  ?7X,*ENPIFKAtlY  (USFC  CONPL'TFR  PROPRAN*  // 

1 ? ? X , * TC  PPvrJCT  THE  AE'CPYNANIC  CHARACTERISTICS* 

2 //  VX,*r;  aircraft*  // 

3 3CX,*UCLLP1NC*  // 

A 2 AX  , * F CUC-HNf  S S , PPPTl  PFFAf  CFS,  APT*  // 

5 ?AX,*rAN/C-E  CALCLLAllOK*  (B(/)>,  27X,  6A1C) 

20C 1 FCRMAT(5X,*KP?INT(*,T?,*)  * »,I?) 

2002  FQPVAT  ( 5 X , *UNRECF  C-  M 7 F 0 CPNTcOL  VCRT  *,A  A,*  PFAD*) 

END 
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non 


£ 


t 


6 


i 


C 

IP 

C 


SUBROUTINE  SETUP 

ZEROES  OUT  INPUT  fGK*CN  BLOCKS 


CONK-ON /IN  PUT  / M2061) 

CCN-CN  /CUT PI T / B ( 2 ?3  ) 
Cf.KKGN  / C £ L C / C(?0) 

(T  N KPK  /aL!<r,ATl  / C(iRll) 
CONNC'N  /BLKCAT?/  H^OS) 


00  10  1«  1#  3CB1 

M!  ) « O.C 

CONTINUE 


PETl'PN 

ENC 
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CVERUY(1,1) 
p»rr-»AK  i npt 

PRfBLEK  OATA  INPUT 

CTKKCN  /IE  PIT/  N'TOYS#!1''  AC,NPNl  S,NhT,KVT,  1SW  P»IPF  F#IV)0#MPC# 
NEIFF»  Sc  I P » CNAf,  Y C C » Z f r » TWIST# 

POU-P'W,  n-ISf  ,NPGrS»SPl  *('*TAPF,Swp/ITPIf<>FlF> 

TOCP  #CLrP»TECP»crNCL»LPFt,S»  PTP» 

P nauE(7),  PfP  (7,  :c  ),  CFCC#EIiFC'#A(<i)# 

Sv--Ak'E  ( 7)  , SL'P  ( 7 » ? C ) » 

/-  F C < 2 C ) # AFT  (30) , 

Y P I V CT , Y P I V 0 T # X AP  F Y » AFTSV,  AFTCP,  A F TCC,  AFTAV, 
NSIRW,  KdAS#  FKS0RU20),  ALT(?0),  CCT2C)# 
SupV(?C),  CdC(2C),  C l u 1 ( PC  ) » rHS\<20» 

IVAt(<M»  M X V A f r NADJ#  A X f L # KA0J2#  X(15»# 
Y«C1‘#C)#  YA(lf#o)#  Y f L ( 1 F ) ♦ 

NFISPT,  ITUSC#  NCPCr#  NPCrPT,  >rl-S#  YPL'S,  Z rUS  > 

FI'S  Y 1 1 O0  ) * flSCdOOi  FISAdCC), 

pot y 1 6 ) > per  y ( a ) » pcizto,  mx{*#3c)»  delate, so, 

IPAK(?G)#  PECr<7#lC0»#  CSIF(7#1CGJ#  C-VTNG(20) 

D I KEN  SICK  T T T ( 2 0 ) # '.(1)#  A S U C 1 7 ) 

DATA  ITT  / 3K6P-,?Ft*-OF65-»  • h £6-# ?F6 ? A , 3KA 4 A # 3K6 £ A # 3 F I NP# 

1 2HriC»rH-6?OF-6?,3f~ tk,  ?(-- ( 5 , rh-6£  » 3F  - ? 3#  3 F-3  A # 

1 2H-3F,  3H-c3»3F-04,#3F-95  / 

CATA  W / AhACJl1  / 

CONFIGURATION  OFRINITICN 

OPTIONS  CAPOS 

100  FPAP(5,1CG1)  N-pf^S#  KPNIS.NHT#  N V T*,  .ISLP# 

1 J p F F > fWNC,  N A F C » KETEF,  1TPJK 

6FADU#1CC2)  Sc  F P#  C^AC#  Y C C#  2 CC  > UF  Fl'S  , ACB 
FEAOO,1C».2)  RCOGFK,  FK  i SC#  TV  I ST#  CCNCL 


V P I T c (6#2C01 ) 
VRJTt (e#?CC2) 
VOTE  ( fc  # Z ( 0 3 ) 
VP1TF  <e,?C„4) 
WRIT E <6,2oCB) 
WRITE  <t,20C£) 

V.c  JTE  <c#2v,C?) 

IF  ( M r: T E 1 .EC  . 0 ) 
lc  dETER.PC.l) 
IF  (KETFR.EC,?) 
TP  (IwNC.C-T.O) 
IP  ( IvNC.CT.O) 


S 5 E F # PCUGKK 
C N'A  C # FOSC 
X C (•  » TWIST 

ZCC  # CCNCl 
UPFUS 
A CP 

. , KAPC#  *ETER,  ITPIK 
W’F  TTE(E#P0C2) 

WRITE (6# 4003) 

VPITE(6#ACCA) 

R c A 0 ( 5 # 1 00  2 ) SPUN#  TAPS,  SVP 
WPTTE(A,P001)  SPUN, TAPP, SWF 


KPC-OS# 
K DM  S # 
MIT  » 
NVT  # 
TSVP  # 
I R E F . 
I <n  c. 


IF  (NHT.EO.O.  ANT  .ITRIK.pc.O  P E AO  ( 5#  1 002  ) CFCC#  El#  FO 
FUSELAGE  C-FCN'PTPY 

IF  (K’FCrS.FO.C;)  CO  TC  104 
IF  (NPC0S.GT.7)  CALL  FYJT 
R f AT ( S# 100 A ) (PNAKF(I)#  I 
CO  TCI  J * 1 # 1? 


101 

TCa 


106 


PCU  ( 5 # 1 C C2 ) 
d f.TINUE 
WRITE  (6#?(i0<p) 
WRITE  (t,M0) 
V»ITF(£:,20ll) 
VRITF(o.2C)2) 
WRIT?  (e#  2^13  ) 
V 6 J TC (6#?01A ) 
VPITf (A#2Clt) 
'*R  1 TF  (E#?ol6  ) 
WRITE (h#?C)7) 
VFITE (6,?C1? ) 
W P J T r:  ( 6 # ?.  0 1 P 1 
WRITE  (t#20  2v ) 
V°1TE(6#2j21) 


( BCD ( I # J ) # I 


1#KPC0S ) 
1 1 # KPPCS ) 


(EMMID# 

< f rr < i»i ) 

( °nr (i,2) 

(Pno<  I#?) 

(f 00 ( T I C ) 

(per (I# a ) 

(eroii# ( ) 

( pon  1,7  j , 
(EPPOT)  , 

(?cru, 9)  , 

(POOU,  1C), 
(FOCI  1,11), 
(EPf (1,12), 


i: 

1# 

l# 

1, 

J » 

• i# 
l# 
l# 
]» 
l# 
l# 
1# 


Npr.r< ) 

N F C n S ) 
KFCCS) 
KFCC5) 
a r c r 5 ) 
NPfTf  ) 

N PC  OS ) 
NFCCS) 
NPCCR ) 
Nprrs ) 
NFCCS) 
NPC05) 

NPens) 


co  no  i « i,  NPros 
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c 

c 

c 


lie 


104 


107 


IF  (»CC(T»12).GT.C.O)  N • * + 1 
CTM  INL'E 
STAC  » N 

KPCOYS  * NPOCS  - NNAC 

SURFACF  GF  Cf-FTPY 

NSl'R  * F'FNLS  + NHT  ♦ 7VT 
TP  (NSl’R. CT. 7)  f A l l FXIT 
P r AD(5 > loG4 ) (SHAdd)  >1*1,  NS  UP  1 
Fr*['(5*lCf.6)  ( A SUF  ( ! ) > I«1,NSIP) 

rn  lo?  j * ? > 1 4 

IF  (J.EC.S.C&.J.FC.f)  C-0  TT  1C7 


p t A r <E,1GC2) 
cri  TIM  £ 

Ve  T T fc  ( 8 > ? C 2 ? ) 

V 0 1 T F ( t , ? o 2 4 ) 
U'in  (t  ,2QZl  ) 
W P I TE  ( 4 » 2026 ) 
VP  ITF(6» ?027  ) 

V p ) T f ( 4 > 2 0 2 G I 
VRJTH4,2C21) 
VM  I E ( 6 > 2 v ? 2 ) 
W»  JTFU  »2t?3) 
W c I TS (6  » 2C 2 4 ) 
WP]Tc(4,2C2b) 
VRITf (4,2024 ) 
VF1TE(6>2027) 


1C9 


1CB 


(SIMI,J),I  * 1 > N S U R ) 


($‘:APHI),  t 
( A S I'F  ( 1 ) , I 
< 5 U c ( 1 » ?)> 
<SI-R<1>  2 1 » 
(SUM1,  4}, 

( SUR ( I > 7 1 > 
(Sllen,  FI, 
(SUfll)  9 1 > 
(sum, in, 
(SUP (1,11), 

( FI.'P  < T / 1 ? ) > 
(SUM  !>  1?  )> 
(SUF (1/141# 


■ l.NSUR) 
'1  >NSIP  ) 


I 

m 

1,A’SUP  ) 

I 

s 

1,7  SIR  ) 

T 

9 

1, K S OR  ) 

I 

u 

1,a  SIR) 

I 

K 

1 , N S U R ) 

I 

2 

1 , 7 S U P ) 

I 

■ 

1 > N S U P ) 

I 

M 

l,NSl'R) 

I 

r 

1>7SIP) 

I 

* 

l.NSIR) 

T 

* 

1 , v S U R ) 

IF  (IWNG.EC.C)  SWF  « SIR (NPNL S> 4 ) 
AIPFGIl  ANC  SWEEP  OPTIONS 


GO  TO  108. 


Ill 


11? 


re  lop  i . i,nsup 

IF  (ASUP(l).EO.TTT(e)) 

GC  TC  112 

F F AC*  ( 5 > 1 002  ) fill,  TOCP,  CLOP,  TECH 
p t AD ( I > 1002 ) (AFy(l),  J « 1 , 7 AFC) 
kFA 0(4,1002)  (AFC(T),  T *1,NAFC) 
P£ADt&,lGG2)  ( a f T ( I)  > I =1>MFC) 

WRITE (6/2040)  PLE,  TOCR,  CLCF,  TECH 
C?  Ill  I » I,  MFC 
WRITE (6,204) ) AFX(I)>AFC(I)>  AFT ( I ) 
COM  IM'E 

VAPIABIE  SWEEP  CATA 

IF  ( ISVP.7E.il  GO  TO  11? 

RE  AC ( S> ICG?)  XPIVCT,  YPIVCT, 


AFTSW,  AFTCB,  AFTOC,  AFTAW 


SURVEY  CONTROL 


113 

114 

115 

116 
117 


READ  (5.1CC1)  A SI R V > NCIAS 
C-n  114  I » 1#  NS  UP  V 

REAMS, lGi-2)  F w S U P V ( I ) > A t T ( I)  > GOd), 

1 CLHI(I) 

TF  (fLHT(I).f  C.C.C  ) ClUim  * 1.0 
IF  (ISvf.EC.l)  GO  TO  114 
IF  (SvFVdl.FC.O.C'.ANP.SWPVdl.NO.SVP) 
CCNTIMF 

WRITE (6,2042)  SSUPV 

rc  115  I * 1,  A' SI  R V 

WRITE(fc,2C.43)  f«Si.rv(I  ),  A LT  ( I ) , CG(I), 
1 CLHKI) 

CONTINUE 

ADJUSTMENT  FACTORS 


$wpv(j),  mod), 


SWTV(  I) 


SWP 


SW'FV(I),  CLirill, 


REAMS,  ICC  A)  W OR  0 , 0®!) 

IF  (WCRO.bO.W (1)1  GO  TO  117 
C-0  TO  122 

REAMS, 1007)  U VAL  (d,  !«1,20),  AXVAR,  AAfJ,  MCI,  NA0J2 
I J * 0 

IF  (NYVAP.FC.C)  GC  TO  llc 
P E AD ( 5 > 1002 ) (X(I),  I « 1,  AXVAP ) 


148 


j 

t 

'■  , I 

' l 

I 


UP 

UP 


c 

c 

c 

c 

c 


12C 

121 

12? 


C 


126 
12  4 


2p0 


C 

c 

c 


30C 

31C 


?50 


400 

C 

C 

C 

1001 
ICO? 
iOJp 
ICO  4 
ICO? 
1016 
1 0C  7 
100P 
C 


TO  118  1-1*3 

i (iuun.Fc.n  t j • i j ♦ i 

IF  (IVAl(I).EC.l)  IV/.L1II  * 1J 
IF  ( l.GT.NACJ)  C-0  TO  UP 

* rt  *5*  10o3  ) (YMWUU  J « 1 > K > VAP  ) 

CPMINfE 

IF  (NKL.EC.C)  GO  TO  1 ? 1 
F r-  A 0 ( 6 » 1 C C 2 ) ( X C L < T ) > J « 1 , NXCl) 

00  i 2o  1*1*2 
11  * 1 ♦ 3 

n-  u v a i ( i n . f o . i ) i j - r ,t  + i 
if  uvAicm.tc.i)  i v a i nil  • ij 

IF  (I.GT.NAPJ2)  GC  TO  1?C- 

e P A f (5*1003)  (YMUNATJ+IU  YA<  J*NA0J  + IU  J • 

CONTINUE 

COM  1Mb 

VP 1TE<6>2044)  UTPC#  W9T 


UN'XCl) 


DEFINE  A I P F HI L SECTION 

rp  125  J = 1*  N5C‘P 

CO  124  J • 1,  20 

TP  ( A SUP ( I ) . EC .TTT ( J) > GO  TO  126 

GO  TG  124 

5UP ( 1*1)  « J 

GC  TO  125 

CONTINUE 

V c I TF ( 6>  204 5 ) J » A SUP  < J ) 

CONTINUE 


CENTIME 


CHANGE  CEG.FEE5  TO  RADIAN* 


A A 


» 1.  / 5 7..  2957  P 


ro  2po  i 

Pl'R{  I >4) 
C'NTtNUE 
SVP  « 

A c TSV 


* 1,  NSUP 

* SUR ( I*  4 ) 

SVP  * A A 
« AFTSV 


♦ AA 


* AA 


CONVERT  UNITS  TC  INCHES  , IF  PETER 


IF  (METER 
TC  300  I 

pro  (1, 4) 

DP  210  1 

SI  5 ( 1*7) 

A F T /* '» 

SR  F F 
c P L AN 
G T TC  400 
CONTINUE 
CONVERT  ROUGHNESS 
AA  * 1./12, 

IF  { M F T c P . F 0 . ] ) AA 
eplFWK  * PPCCWK  4 
CENTIME 


N E . 2 ) cn  TO 

« i»spnr*: 

* ec-c(i»4) 

* UNSUP 

* SC  p ( U 7) 

■ AFTAV 

* SPEC 

* SPLAN 


3 50 
* 144, 


144. 
144  . 
144, 
144  . 


HEIGHT  FFPr  INCHES  TC  FT  OR  METERS 
* C.C254 


AA 


INPUT  EOF  MAT  ST ATNENT 

FnpM.K  1415) 

FPRIv  AT17F1C.0) 

RpRf  AT 16F10.0) 

FPRN  6 T ( 7A 1 0 ) 

rnKMiK  i3»7>*A3*7y»A2*7y*A3*7>*A3»7>» A3*7X»A3) 
FfRA'AK  A4»  A1G) 

FPU  AT  (F  Cl  U 4 jr  j 
Fr?.vAT(2CIl) 

PRINT  PPFKM  STATEMENTS 


f 
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20'Jl  FORMAT  (1  HI » 10X#  * PROPLEN  INPUT  FAF/f'FTfPS 
2 f-X,>rNFCDS  ■<>  IP,  20  X,  +SKEF  FH, 

2 F 1 C . 5 ) 

2CJ2  'Of.v&T  (5X»*NPK5  ■*> 

2C-33  FrFvAT(EX»*EHT  »*, 

200A  Frt> AT(SX,«NVT  **> 

ZOO',  FPCPAHf  X,*ISVP  *+> 

2 CO X FnpMAT(*y>lfIpcF  «♦, 

200  7 F pc  NA  T(*'X>*IVNf  ■ *, 

S»#»N'AFr  **  I 


* » /// 

?>?0X,  +RriGFK**» 


Io>20>><CNAC 
1 P* ?0>  > * XNAC 
nn?ox>«7CG 
IF»20X><UPPLS 
IF>2C>  >»ATP 
IF.  /> 


*nFlC.3>2Cn*FNI5C 
• * » c 1C . 3>  2CX, * TV  I ST 
■♦/ciC.3/2oX>*CCNfl 
«*>C1C.3) 

=*>F1C.3) 


FIC  .2) 
*♦, F1C  .?  ) 
*«, Fit  .3) 


IF. 

IF. 

IF. 


It 

It 

I) 


2 5X>*FFTFP  * * i 

3 5X»»ITF]K  *♦, 

AC-02  frtynUlt  luX,  *riPENSirKS 
A CO  3 FpR‘AT  (//,  10X#  *rnfF?irN5 
400A  FORivAT(//»  2 0 X > * t>I  C r N S I fN£ 

1 luX#  *PFFEFENTF» 

2 icy,  * l NO  also 

A001  FrRm(////.2X.*PFFEFF>C': 


ARF 
AK 
A F 


IN- 

IN 

IN' 


FFFT  *) 
FETFPS*  ) 
INCH'S  E>‘ 


FPT 


1 


FTP  *,/, 

PtmCRK,  A NT  V F T T F T APFAF*,/, 
A l T 1 1 L 0 f ANC  F f YN  F l n S MNPFf+) 

vinc  rrR  no  panel  case  *>//» 


5X,»$PLAN  •*!  FQ.3»3X»*TAPP  -♦  t F F . <•  1 t X t * SVP  * ♦ # F f . r } 


200° 
2ulO 
2C11 
7C1  2 
2C13 
201  A 
2C1  f 
201  (■ 
2017 
2C18 

201  R 

202  C 
K 202 1 

2f  7 2 

202  A 
2C2  5 
2C  2 6 
2C  2 7 
?C3  G 
2C31 
2C3  2 
2C3? 
2C3  A 
2C3  5 
2C3F 

203  7 
C 

20A0 


trr^wAT(////.?cX.7A10) 

H'fN6T(//,2X,n  fNPTH  » *>?F10.3) 

f r ? N a T ( /,?X,*H0Tu  , *,?no.3) 

F r k N A T ( /,?X,*HP  rGTH  * *,7F10.3> 

F C 0 -v A 1 ( /»2X,*VETTfct>  ARFA  «=  ♦.7F1C.3) 

F f A N A T ( /,2X>  *UTFP.FACTOP  « *t  7F1C.3) 
F?R\AT(  /,2x,*Nr.CF  TKIS  TY 0 E » «>7F10.3) 
FnprA  1 ( /,2>,*MAXIN.t;v  AREA  * * t 7F  1 0 • 3 ) 
FORNATC  /,2>,»EARE  ARFA  * *>?F1C.3) 

F f F N A T ( /,2X,nr.'F  IFNf-TW  « * » 7 F 1 C . 3 > 

tnp-ATC  /,?>,»pr ATTAII  LFNCTH  * * , 7F 1C . 3 ) 
FCC  NAT ( /,?X,*6ASF  CRAG  AREA  > *>7F1C.3) 
FOM-ATC  /,2X,<  IMET  AREA  * +>7F10.3) 

FnRMATnFl>///»?0X»7AlC) 

FnjA-A  T(//,2X,»$f  CTICN  * 

FO^ATI  /,2X,*CAWFFP  (2-0)  » 

F p R N A.  T ( /,2*>*1HI.CKNEER  RATIO  * 

F P N A T ( />2X>M.F.  'WEFF 
FpRYAT(  /,2X,»'/  FTTFC  A P f A 
FCPNATI  /,  2X  » *PCC1T  CHORC  * 

f T 5 N A T ( /,2X,*TIP  CHTPP 
F p R y A T ( /,7x,<$PAN  OF  PAN'El  * 

F 0 ► f ' A T ( / ,2>,«X - IF  R CrT  CHCRr« 

FOPNAK  /,?.>, *Y-  LF  RCTT  C H C RT  * 

ftf.-.ati  /tZit*7~  ic  p r r t cpcpc* 

FTF-xatI  />2X»  ♦TNCIC-RNCc 


7 ( 7 X » A 3 > ) 
7F1C .3) 
7F1C.3) 

7 H C . 2 ) 
7F1C.3) 
7F1C .?) 
7F1C.3) 
7F1C .3) 
7FK.B) 
7F1C .3) 
7F1C.3) 
7F1C.2) 


FORMAT  { /// , 1 CX,*  FR01NATFS  FCP  I N P L T AIFFCIt*>  //> 

* R L F SX.*TCCF  **#F7.AxS>»<f  IFP  =*>F7.n5X> 


* T t-CH  «*,Ft.B,  II, 


CAREER 


THICKNESS  ♦ ) 


2 . 

2 ZY-t  * XCIST/CWPFO 
2 0 '*  1 Frc»ATU>#  2F1A.A) 

? C A 2 F0RNAT(1F1,//>10X> J5>+  CRAC  PCLARS  TT  FE  GENERATfr  AT  THE 
i * rr-uc. jng  cfN-niTicNm  i>mo,  +xiC(.  nc-.*, 

1 T20»»M  TITUrE*>T3Ay*C.f.*yTA0»*SVEEP'»>T5C»*Ff  ON  CL*. 

I T A 2 / * T 0 d*W) 

20  A 3 F r c ,v  & T < J X,FU;t2xF13.2xFR.?/F7.1»Fli.2xFl].2#I12) 

20  AA  Fncy/sTI //NX,  A A , A1C,  3 CX,  5H****+,  / 1H  ) 

2C  A 3 P 0 F .M  A 7 ( />2X.*A1RFP1L  SFCTICN  SlR(»»Il/«xl)  * *tlZt 
1 * NOT  F CUT C CN  LIST*  III) 


END 
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L 


! 

' 


; 


► 


fc 


I 


! 


C 

c 

c 

f 

c 


c 

c 


c 


c 

c 

c 

c 

c. 

c 

c 

c 

c 


c 

c 

c 


CVFPUYtl,2» 

F»C C-R/F  nispi 

r A f A G £ PARAKETERS  ARE  R F AD  IK 


CPKKON  /INPUT/ 


1 

2 

2 

3 

A 

c 

6 

7 

f 

0 

1 
2 
3 
A 


F T N # 


N'°  rC  Y c » N'K  A l>  N PN  l S>NrT#NVT>  . 

K f T E " f EFFF,  C*t  (,  XCC»  ire-,  ....  , , rt„ 

ROUC-p*  * I>1  rf  » IPAVC*  A R * T A FR  > SWP>  XCCJU*  RLE, 

TOf R»rirp, Ttc^»  f(P(2)» 
er/PF(7),  f>m?,?0)>  SNARE(7)a  SIR<7>20)» 

A F X ( 3 f ) » AFCOCJ*  AFT(?C)> 

XPIVGT,  Y P T V D T > X A P r X > AFTSV,  AFTCEj  A F TOC>  AFTAW 
NSl'FV,  F’CLAS*  Ff'SlPV(2G)>  AU(?0)>  CC(2C)a 
Svp  V ( 2 0 ) » C L I r ( 20)  > C LF I ( ?0  ) > DHSl(20)> 

1 V 4 t { ?G ) > M X V A P » NAPJ>  N/Gl>  NAOJ2,  X(1E)» 

Yf ‘I!',?),  YAM£jC)>  X CL ( 1 £ ) » _ „ ,rllr 

NFUSPI#  lU'SC#  NCPCD>  N.  P CT  F 1 * XFUS*  YFL  S»  2 FUS  > 
c ur  X ( 1 CO ) > f L‘SF  < IOC ) > FISA(KC)»  rl  ,,, 

POFX(f),  PC-OYIM*  PCTZ(M»  r<lX(E*2C),  CFU(fc>3C)> 
IO/M(2G)>  DP0D  ( 7»  1 CO ) / C SL*F  ( 7 > 1 OG ) t DWINGtZO) 


CCFN'ON  /BLKTIL/  TITLE(f) 
riFENSIGN1  V C 5 D 1 ( 1 6 ) » VPRC2(16) 

PATi  wCRP-l  /loM-fOY,  rnuf#lCHFrOY»FVr-r-,KFFnCY/AFT-F> 

I ICHPCDY*  FC-Lf  # 10FPCPY»  UAVI.ilv;HrnrY>  pi  CT  flCHFCt  Y>  FLUN> 

l IF  tlH  ilH  *iOF$l‘RF»  PCUC»  3 ChSL PF * c V D-F , H.FSUF F , A FT- F > 

j lDPSL’RF,  HCLP*  1CH51PP»  WAV  1 , ICHPI'FF,  RPrT  / 

DATA  WCRD2  /10FFNESS  >10I-AC1NC  STEPjlG FACING  5TFP> 

L UFS  t IC'HA'FSS  f I Owl  p F R Af  G I S .IOFTafSS  , 

l IF  ,1F  > 1 F ,]OFHN‘ESS  > 1 OF  A C I NO  ST E c> 1 CFA C IN  0 STFP» 

3 10FS  * 10FNFSS  . lCFL'P  t R A a C [ S / 


A'PCOS 
NSL  R 


NBCOYS 
N'PN’L  S 


♦ N’NAC 

♦ N.HT  4 


NVT 


*+*♦+♦**  pA^fC-F  PARANETFRS  * + **4*  + * 

R P A O TITLE  FOR  n 4 F a G- E CASE 

frFAr (5/1COA)  (TITLE! I ) > I « 1>6) 

WRITE  ( 6 » 5 C 1 0 ) (TTTLFU)  , J = l>fc) 
PFAD  INDICATOFS  FCP  DAFAGE  INPUT 


0"  100  1 ■ 1*  20 
J G A F ( I ) » C 
IOC  CONTINUE 

PEA  ('(£>1  G.0?)  (ICAMI)  , I » !.» 17  ) 
w P I T F ( fc>  3001 ) 
cr  ?10  I • 1 » 7 

*>  P J T E ( 6 > 3 0 0 2 ) IjIDAKU),  I410/IGAF(I41C) 

2 1C  CDNTINL E 

F US  F L AC-  F DA  f AC  E PARAFFTFPS 

N'PCASE-  IDAF  (1  )4]DAF(  ?)4lDAF(  3>  + IDAM  A)4lDAK(F  ) 4 ID  A X ( /)  4 I DAN  ( 7 ) 
Ic  (NPCASF.F.C.O)  GO  TO  ?.3t> 

WRITE  ( t » 3 C 0‘  3 ) 

PEACH  l>  AC-02)  PUFFY 
DC  ?30  K - 1 » 7 

IP  ( JPAN  <K),Ne,l)  GO  TO  230 

* F 

* b 

* b 

* E 
« 7 

* 5 

• ? 

K / * ( K - 1 ) * 1 o + nvapi 

WRITE  (F»‘t00  2)  K»  W'CR  D1  ( K ) i VCRC?(K) 

PH  220  J » K1  > K2 

READ  ( E » loCE ) ( CROP ( J » J ) , I » 1;  NPC05) 


IF  (K.EO.l) 

IE  (R.EC.2) 

IF  { K . E C • ? ) 

IF  U.EC.A) 

IF  (K.fO.E) 

IF  (K.EC.M 
ir  (K.EC.7) 

K 1 «(K-])*10 


NVAPI 
N'VAF  I 
N VAN  J 
K'  V 4 c I 
N'  V A R I 
NVAPI 
NV4C  I 
4 i 


\ 

r 
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nnri^  oooo  ">o  o 


V° I TF  ( 6 > 3004  ) J »(DPC«'(I#J)  > I • 1>'  NPCDS) 
?2 0 CONTTNL'F 
230  T I ^ t-fc 

SURFACE  DAPAC-E  PAFAPf T£P$ 


23! 


240 

25C 


VUTc(fc.‘ClC)  (TTTlF(l)  , 1 « 1,6) 

VBnE«6#?C0S) 

NVCAddr  AMUT  )4irAP<l?>4lCAP(13)4lCAP(14)4jCAM(15)+lPAP(16  ) 
V (NVf  t S£  .EO.O)  GG  70  255 
REA0(5,4tC2>  GUPPY 

nr  ?5c-  k « ii,  if 

TP  dOAPO  ).NF.l  J GC  Tf  2SG 
IF  (K.FC.J1  ) N V A R I ■ F 

! c (K.EO.lc)  NV/PJ  « F 
IF  (K.  EC.  13)  N V A P I « 6 

IF  (K.cr.14)  KVFPI  « Q 

IF  (K.KC  .15)  * V A P I • 7 

IF  (K.F0.16)  N V A R I « 5 

K 1 * (K  - 11)  *10+1 

K?  * { K - Ii)  * 10  4 KVA RI 

V?ITE(6,41C3> 

TO  24C  J *P1,K2 
REAF  ( 5 > 1 0 0 2 ) (05UP(!,J)> 


WRITE(6,3G04) 
CPNT INI 6 
CONTINUE 


y , vc.pnioo,  v g p c ? ( x ) 


I*  1/  F.£IF) 


J / ( CSU9 ( I#  J ) > I - 1/  NSUP) 


260 


PISSING  PAPTS  CF  5 1 1 P F A C E S 

0V*INP(1?  ) • o , occc^q 
JF  <irAM17).NF.l)  Gr  TP  260 


AC(6,.ilC2) 

FFA(7(,5,ltl'2) 

REAP (5, lOt 2) 

PFAD(S,IC02 ) 

WRITE (6, 3006) 

VP  HE  (6,3e07) 

V R T T F ( 6 , 3 1 G f ) 

V R ITE(6,3C09) 

V R ITS ( 6, 30 lu ) 
VeITF(o,?Cll) 

V p ] TF (6,3012) 

WRITE ( 6 , 3 C 1 3 ) 

Jc  (OhInC(13).E?.C.O) 

IF  ( CV  INC-  ( i 3 ) . E C . C . 0 ) 
CCNT  HUF 
CONVERT  ROUGHNESS  HFIGHT 


(OWIFG(T)  , 

( r.v  ing(i)  , 

<PVTN0<1)  , 

( n u T n c ( t j , 

OV  JNC-(i  ), 

DV  INC-H  ), 

PWTNf ( 3 ), 

m r n g ( a ? , 
f’V.IN'GH. ), 

OVIN-f  (F  ), 

mn»(?(ic) 

OWING (20  ) 

‘ ‘ V c I T £ ( 6 , f G2C ) 
OWING (13)  « 0 


1,  6 ) 

* 7, It) 

•11/13) 

=14,20) 

IN  GU7),0WTVf  (12) 
DU*-G(0*),eUNG(14) 
CWIN  0(OC),OWlNO-(lf  ) 
rwiNGtic),rvjKf(iF) 
EUNGdl  ),PUNO(  J7) 
DV  I K G ( i £ ) , G •'  J N C-  ( 1 F ) 


FRCP  INCHES  TO  FT  CP  PETERS 


AA  • 1 ./I2. 

IF  <*tT£P.FC.l)  AA  « 0-.0 254 
00  ?0C  I =1,7 

oprn  (i,n  = r p rn ( i,  l)  * a a 

06000,2)  « CFGP(  1,2)  * AA 

OS  l‘F  ( 1,2)  « 0 S U F ( 1,2)  * A A 
C CUR  ( 1 , 1 ) = C Sl'R  ( 1,1)  * AA 
3CC  CONTINUE 


INPUT  FORMAT  STATP.FNT 

1001  FOR MT  (1415) 

1002  FORpATt 7F10.0) 

1004  FnRN  A T ( 7 A 1 ,j  ) 

1005  Pnpf  AT (A?,7X, A 3, 7X , A 3, 7X, A 3, 7> # A3 , ?Y , A 3 » 7X , A 3 ) 

1006  FORN AT (A  4, A IQ) 

ICC  7 FrFMT(  20 11,  415) 

1C0F.  F CRH A T t 20 1 1 ) 


F OP  R A T STATEMENTS  FOR  CAPAGF  PAP.  AP.  ETFPS 

3001  F0C  P A T ( //>  20Y,  +OAPAGF  PAFAMfTEFS  *,  / ) 

3C02  FOPPAT  ( 1 0 Y , * JO  A P ( ♦, T ?, * ) »*,  12,  1CX, 

1 ♦ I PA  P ( * , I 2,  * ) •*>  12) 


152 


i 


3C03 


3C09 

3C03 


3006 


3007 
3COS ' 
3009 

1 

3 0 1 C 

? C 1 1 

3 C 1 2 
3Ci3 
9CC2 
9 C J 3 
5 C 1 C 
5C2C 


FCF.MAT<//,  25%,*  «rnv  DAMAGE  FABAMtTEF.  S»  CFrt(T,J)  ♦ ,//, 

13XHT  • - ?*>SX,<1  ■ ;*,l*>*l  * **>SX> 

<1  » 5*»SX,«I  ■ 6»>fX>*I  • 7*,/) 

FTRKAT  <2X>  *J  *♦ > I 3»  3 X>  7F10.6) 

FORMAT  ( U>  2£X»‘SIRFACF  DAKACF  PAFAKETFRS>  P 5l*F  ( T#  J ) *p  II, 

13X*  * I « 1 * » 5 X # * J • 2*t  fX»*I  » ?*/ 5X>  » J ■ 9*>SX» 

♦I  • £*>5X,*I  • 6*,fX,»T  • ?*>/) 

FORMAT  ( //,  20X » * SURFAOF  MISSING  PART  PARAMETERS#  OWKGUI*i 
//>15X#*0VIAG(1)  **,Fe.?»3X,«CVI»'G(  7)  . *«#Ff.3#5X> 

♦nvur  (13)  •*,  FA. 3) 

FT9MAT (15X»* OWING (2 ) -«#FP.3#f>»*n»lKG(  b)  »*#Ff.3 >EX, 

*0X IN  G f 1 9 ) *+#Ff.3) 

FORMAT!  15X,  *C»IM-G(  3 ) «*  , F 0 . 3 , 5 X>  +Pw  I NG  ( c ) **,FP.3/5X# 

♦ OWIN'*  (13)  ■ ♦ » F f , 3 ) 

F0RMAT(15X>*C1»1N0-(A)  » * » F P . ?,  6 X • ♦CUKC  ( 1C ) «*,FE.3#6X, 

♦ C V I N G ( 1 6 ) **  > FF . 3 ) 

FrRKAT(15X>«DUNG(5)  * * > F S . 3>  S X , *DU  NG  (1 1 ) »*»FE.3>5X, 

♦ CWING(17)  - ♦ > P F* . 3 ) 

FCFMAT<  1£X»  *CX  l1  G(M  * * , F ? . 3#  £ X , *DX<  I NG  ( 1 2 ) »*>FP.3>5X> 

♦ DUNG (If.)  «*>Ff.3> 

FORMAT  { 6 2 X # «PVINC(19)  =♦  > F ? . M 
FORMAT  (A2X,  -<0X110(20  •♦  » FP.3) 

F r.  F M A T (A?  ) 

_ ‘ ■*’  */  12#  EX#  2 A 1 0 ) 

H10) 

N‘  P l T E R F 0 P -*#  //#  POX  » 

PCV  ICC  THAT  TRIMS  FOILING  MOMENT# 

INPIT  AS  G.O  ♦ » /#  20X# 


FORMAT 

FORMAT 

FORMAT 


< /#  lOXi+MPOE 
( 1H1 > /I,  1C># 

( ////#? ox,  »I 
♦MfMfST  ARM  OF 
♦ PX  INF  (13)>  VAS 


♦PPCGFAM  WILL  S FT  DWINCC13)  « 0.5  AND  CONTINUE 


*# 

PPCBLEM*) 


END 


I 


1 

> 

< 

/ 


I 


I 

I 

t 

} 

) 
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i 
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P E AO  IK  IK PUT  VARIABLES  70  CHANGE  FPFVJGIS  PPCPLEN* 

CON  KPN  /INPUT/  A ( 3CP 1 ) 

CON  RON  /BLKTIL/  TlTLE(fc) 

f'TMPNSION  N0(2Ll>AA(3G)»  HO  ( 1 4 ) > I A ( 1 <i ) » J 1 ( 1 C) , I 5 ( 24  ) 
ECUiVAlfKCE  <Tl<l),A(in»  U?»A(lt))>  (I?/A(491)),  (I4,A(492)>/ 
1 (IM1)»  A(f23)>#  <16/ A (22)) 

RPA0(5»10CC)  (TTTLEd)#  I « 1 # ft » 

MA'MS/ll/Ol)  K/  N 
NR ITE (6/2C0o)  (TITLE(I)#  I«l/6) 

IF  (M.fC.O)  GO  TG  1C 

FEAC<5/iGCl)  < (NOU),  IA  (I  ) )/  I»1,K) 

1C  IF  (N.EC.O)  GO  TO  ?0 

PE  An  ( 5/ 1002  ) ( I|.'Q(II»  AA(in>  I*l/N> 

20  IF  (N.EO.C)  GC  TO  110 
rc  1 uL>  I ■ 1 / N 
J « NT(1) 

A ( J 1 - A A ( I J 

.ICO  CONTINUE 

'l ID  IF  (M.EC.O)  GG  TO  210 

r.O  200  T * 1 / M 
J « NC'dl 

IF  fJ.LF.10>  IKJ)  « I A ( I } 

IF  (J.6C.1S)  12  • I A ( I } 

IF  (J, EC. 221  I 6 - I A ( I ) 

IF  (J.FC.A91)  13  * 1 A ( I ) 

IF  (J.EC.AC?)  ] A • I A ( I ) 

IF  (J.GE.633  ) 1 5 ( J ) * IA(I) 

.2 NO  CONTINUE 

>10  CONTINUE 

"lCOO  FrcRAT-(  6 A 1C  ) 
lUOl  FPRr.ATCJ  415) 

. i 0 0 2 FORMAT ( 3(15/ 5X/  p10,C ) ) 

>000  FOP  RAT  ( 2H 1 > / / // 27X/  ft  A 1. 0 > 

EK'D 


■ i 


! 

i 


i 

i 
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\ 

f 


nV?*UY<2#0) 

PRC-G  PAR  GECR 

CCKPUTFS  GEOMETRIC  PAFAKFTLRS  FCP  # E RC  CUCllATTCKS 

COf'.KOK  /CALC  / GO?.  COP  > CP.  $ F L AN  > X CP  1 E > 

1 SVPC'*,  SVPHC.  f-  L P 1 F » SvM,  <R>V»  CBAF. 

2 TOCV.CLO.Ai'XR.f  RX.CTXjxrx.XTX. 

2 YFX,ytx,>f,YF.SvFT»*Y?,  SV  PL  p.  Fr>C» 

A SV.9R,KPASS»ACPLAN*TF.Y1X»S1*#/C!»CP.XP. 

5 soxf,  APcp.rxcc.ivisi.*  irrs>fPA&2>a  psycx> 

fc  SVPFCS.  C(S) 

CrX"CN  /INPUT/  A ( 2061 ) 

COM-ON  /PIKDAT1/  C(  1A11) 

DIMENSION  B N A .M  F ( 7 )>  Prr(7»2C)».SN’APE»7)>  fl‘R(7»30) 

1 » L't  7 )>X(7)>Y<7)>Z(7)»  AFCL3C),  XTT(22) 

ECU!  VALENCE  ( A ( 1 ) # Npnr  YS  ) > ( A ( 1 ) ,NNA  C ) » ( A (’  ) . A PM  S ) , ( A ( 1C  ).  *{  TER  ) » 

1 U(A),NHT)  » ( A { f ) » N VT  ),.  ( A (IT  ),CPAC>» 

? (A(13)»XCG)»  (A(IA).ZCC),  (A(P),IWN<r  )> 

2 (MIG)  »l>  PLAN1},  ( A ( 2 >) ) > T A r-  C ) > ( A.  ( 21  ) > SV  P ) , 

A (AC3C)»r/  tKti ) ),  (A(B7)#fCC(i/l  )),  (PC  lllJ^XTTd  ))# 

5 (A(Ae4),AFC(l)  ) > (A  ( ? 5 ) > C L P F ) . (A  (G)*NAFC)» 

*5  (A(177),SNARF(i  ) )>  (A(  leM.SLR  (1,1  )) 

CEFTNc  SUFSCFIPTSt 


11)/XTT (1))* 


c 

POMPS 

Jl*l 

TC 

J2«N°rP.YS 

c 

NACELLES 

K 1 ■NPPOYS+1 

TO 

K?«NPC.CYS  ♦ MN'AC 

c 

NAIN‘  VI NG 

11*1 

TO 

L2*NPN!LS 

c 

HOP  I Z . SURFACES 

K1*NPN'LS+1 

TO 

N?  = NPN  LS  + NHT 

c 

r 

VF»T.  SURFACES 

N1«N  PN'l  S + NHT  + l 

TO 

N2*NPNIS4NHT+NVT 

J?  * N6PDYS 

K2  * N&CDYS  + NNAC 

R1  * NPN'LS  + 1 

N ? « NFNIS  + N'HT 

N 1 * NPNLS  ♦ NHT  + 1 


N2  * 
KPAQS 


NPNLS  ♦ NHT  ♦ N'VT 
- 0 


♦♦♦♦♦♦♦♦♦♦CALCULATIONS  FOR  BCD  I £$♦♦♦♦♦♦♦♦♦ 

IF  { K 2 • c 0 . C ) GO  TC  110 
F7F‘FNE5S  PATin  « bOO  ( 1. 1 A ) 
rc  100  J - 1,  *2 
E C I *2  ■ PPG ( I # 2 ) ♦ P CO ( I > 3 ) 

IF  (BDIA2.FC.0.0)  "CTO.IA)  * 0.0 

I r (GDIA2.GT.0.0)  ECO  ( I ^ 1 A ) * BCC(I.l)  / SCPT(PDIA2) 

PAXIPLP  CROSS  SECTIONAL  AREA  * P-C?r  ( T * 7 » 

IF  (POC(  hi)  .EC. 0.0)  FCCLJ/7)  «C  , 7F  S A ♦ PDI  A2 

VETTET  /PE*  * PCMI.A) 

IF  ( P C r ( 1 ..  A ) .FC-.O.O.AMr.I.IF.J?)  FCP(I.A).  (?.*  ♦ PCC,(T,9) 

l ♦ 2,b*  Frr(  i , io)  * u ,/scrt  (Brr  ( I.F ) /«TC  ( J f 7 ) ) ) 

?.  + (*00(1,1)-  FPrih?)  - 600(1,30)  ♦ A.)  ♦ 

3 S C * T ( 0 . 7 F 5 4 ♦ '■CM  1,7))  ♦ PCr  (),/•) 

Ir  (?rP(J,M .LC.O.C.ANT.I .CT.J?)  FCr(J,4)«  (2.5  ♦ PCDU.G) 

1 *(].*5CPT(Fr-0(Ijl?)/?cr(If  7))1  ♦ 2.E-  ♦ PCCU.IO) 

2 *().+  SOR  T(PCP(  I»f  ) / 600(1,7))) 

3 ♦ ( PCr ( I > l ) - Pnr»i,9)  -BGC(I,10))  ♦ A.)  ♦ 

VTiNuPTU*7e5A  * erc(I,7>)  * eccu,*) 

♦ ♦♦♦♦♦CALCLLATE  GEOMETRY  FOR  INDIVIDUAL  WING  PANELS******** 

Tc  (N2.FC.0)  GO  TO  130 
TAPER  PATIC  * SUP ( I » 1 7 ) 

PC  200  I * l » N? 

Sl’R  ( I , 1?  ) « S 0 0 ( I , 9 ) / 5 U R ( I , P ) 

X/C  FOP  MAX.T/f  * SU° ( T»  5 ) 

IP  * SL R ( 1 » 1.) 

SL5  (1,5)  * XTT(IO) 


PLANFCRP  AREA*  SLIP(I,1B) 


( EXPOSED) 


o n mnn  r>  nnnnm 


Sl'P  (I»  IF)  • 
IF  (I.LF.N2) 

ASPECT  PAT. 10 
IF  (T.LE.M2) 
IF  (I.Gc.M) 


usupti,n*  si'»n«?n  / 2.)  « sur<i#io 

SUP  ( I , IF ) ■ 2.  * SUP  II»1M 

» Sl'P  (1,1°) 

• i? .♦sup(i,io)<*2)  / sup (i, ip) 

SL'°  ( I > lc)  « (‘i.*SUP(]>lu)<«2)  / ( 2.*Slfi( I,1F> ) 


SYMMETRY  CrNOITIPP  IC  VFPTICAL  has  y displacement 

<1,1.2). f-7. 0.0)  sup(i>ie)  • 2.*slmt,ie) 

VtTltC  AREA  * FIP(I,7) 

IF  (Sl‘P  (I,7),F.  C.C.C)  SIR  ( 1,7)  • SUP  (1/16)*  (?. 

1 40.IEA3  ♦ CUF(1,?)  4 I.52fce  * Slfi(l,2)*42 

2 -0.P29S  * Sl)P(I,?M*3) 

CHAP ACTFr  1ST  1 C LEFC-TH  * Sl'P  U, 20) 

Sl'P  ( I > 20)  * 0«  fc  t f 7 ♦ Sl'R  ( T , {• ) (1.  ♦ SUP  ( I > 17)  **2 

1 / n.  4 sur{  j # 1 7 ) ) > 

TRCS,CLCS,nr  cbar2  ape  variable  sweep  parameteps 

TOCS  ■ Sl!P(APNLS,3) 

C l r S • SlP(KPK'IS/2) 

CBAP2  « $1*  ( N FN'L  S,  20 
SwET  • SLR < N PNt  S,  7 ) 


SWEEP  ANGIES 


TSVP  « I 
CO  * A 
Sl'P(T,21) 
Sl'Pt  !»??) 
S L'P  ( 1 , 2 3 ) 
SUR ( I , 2 A ) 
SVPMCS  * 

CONTINUE 


'Gl  ES  SI  p (1 , 2 1 ) 
Sl,c  ( 1 , 22  ) 
SLR (1,23) 
SUP (I .2A) 
7 A N( SUP ( I>  A ) ) 

A.  / St.  p { J , 1 9 ) * 

) ■ A 7 A M TSW'P  - 

) « 4 T A F (TSVP  - 

) - ATAF ( TSVP  - 

) « ATAF ( TSWP  - 

SUP ( N PNLS*  22 ) 


AT  f/A 
AT  C/2 
AT  TE 

AT  NAY  THICKNESS 


(1.-SIP(I,1?))/  (1.4  SUP ( I > 17 ) ) 
• rr  * n . 9*1  1 


* 0.2&) 

* 0.50) 

* l.CG) 

♦ S U P.  ( I > £>  > > 


**44*44*Gi-nMETPY  FOP  SINGLE  P A NF  l WJNC.$  «*4*4***4* 
♦ ♦*4*444irUL  AIPfLANE  PARAMETERS  4«**4*4444 

9001  FORMAT  (1H1,  FF10.3) 

TWIST  » A (15) 

WJNC  * A ( 2 75 ) 


P02 

cr-F 

CR 

SPLAN 
A « P l A ( 
TP 

TAPP 
YCPTE 
SWF 
SVPP 
S V P L F 
JWPCC 
SkPMC 
SW  PTE 
SORT 
SEXV 
r u af 
C PA  F 
TCC* 
CLD  « 
ACX»  ■ 
CRY  • 
CTX  » 

Y P X 
YTY 
Ye  Y 

Y T X 

uxcc 


(NPMS.FC.2)  C-C  TO  120 


' ‘L-P(i,iC)  4 « C'R  (1,12) 

SL'P  (1,1?)  / *02 

<cri’u.m^)S1stJ5!l'm'?,,*!'0i!  ' !UC' 

A.«Pr2*<?/5PLAN 
S L-P  ( 1,  0 ) / C P 
TP 

SURjl^lI)  - 5 UR  ( 1 , 1 2 ) ♦ T A M Sl'P  ( 1 , 4 ) ) 

SLR  < A ) 

CLD 

' SVP 

SU’M  1>?1  ) 

SOP (1,2?) 

St  R ( 1,23) 

SIP<  1,2*) 

SIR  (1 , If  ) 

rXFCSfO  WING  AFPC DYNAMIC  CHCFO 

SOP(  1J3)  ‘ 

S L P ( 1 , 2 ) 

A|L,*(SL‘P(1, U')**2  / SUR  (1,1?) 

S L P ( 1 \ 9 ) 

* SUP (1,11) 

• Sl’P  (1,11)  4 SUP(l,lo)  ♦ TAN  (SLR(1,A)) 

1 St P ( 1, 12  ) 

« FT2 

SL'R(),1C>  ♦TAN(SVPCC) 


/ SUP(1,10) 


156 


onoo  on  onoo  no  oo  oonoon.  n nnnnn 


f MOMENT  C-EOf'FTCY, 

C C p * MAC  L'TFlNfO  TO  CFNTfRLINE 

C«  • O.tf.A?  ♦ CP  * <].*  TA PR* 4 ? / (].  4 TAPE)) 

IF  (C»AC.tC.C.C’)  C N AC  « ce 

YP  « SO?  n.  ♦ <1.*  2.  * TAPP)  / (1.  4 TAPP) 

>P  « SUP(1,11)  4 (YP  - 5lP(i,12)  ) * TAMSVP) 

IF  (NPMS.EC.l)  GC  TC  125 


4**44****  GEOMETRY  r-cP  HATS  WING  WITH  TVC  PANEL  5 ******** 
*4*44****  TOTAL  AIRPLANE  PARAMETER*  ****4*** 

120  PC2  » Sl'P  (2*1?)  ♦ SI  0 ( 2 , 1C) 

COB  » S Lp ( 1 > 1 2 } / PC2 

CR  ■ SI  R<  1»°)  4(SUM1,6)-SLM1,C>) ) ♦ ( Sl'P.(  1, 12 ) 4 $1  P ( 1 , 1C ) ) / 
1 SI  R ( 1*  1 0 ) 

SPLAN  « VPLAN 
TR  * TAPP 

IF  (IWNG.C-T.C)  GO  TO  122 

SPLAN  ■=  SL'R  ( ?>  1 f ) 4 (CP  4SUP(l>r  ))MSl'f()»K)4SL‘P(l,10)) 

TR  » FC?  * Sl‘P(?»R)/(SPLAF  -P  C2  ♦ S L ( ( ?>  S 1 ) 

122  ARFLAN  * A.*EC2**2/SPLAN 
SVPP  - S U 0 ( 2 * A ) 

IF  (IWNG.CT.C)  SWPP  » SVP 

SPLAN  IS  INPUT  '* M f n IVFG-1 

TAPP  IS  INPUT  F C’R  TVC-PAFEL  WING 

SVP  IS  IKPLT  Pf'F  TWO-PANE l WING 


1 


SE  XV 
<vPLE 


1 


SWPCC 


1 


svpnc 


1 


SVPTF 


S S P T 


SUF  !MH  4 SUR ( ? » 1 P ) 

ATAN  ( (T * K ( SUP  ( 1,  A ) )*Sl.P(i*if  )4  TAMSUR(Z»A)  )*SLR(2,1S)) 

/sfxv  » 

ACCS  ( ( CG*  ( Sl'R  ( 1, 21 ) ) * SUP  ( 1*  lfi)4  CCS  (SUR  (2*21  ) )4$L'R(2,16)) 
/SFXV  ) 

ACCS  ( (ms  ( Si.p(  4*2?)  )*3UR(1*  IE)  4 CCS  ( SUF  ( 2*22  ) ) *Sl?  ( 2,  1 ? ) ) 
/sexv  ) 

ATAN((TA.MSUF(1,23)  )*SUR(lf  16)4  T AN  ( SUM  2,  22  ) ) * SL'R  ( 2,  IP  ) ) 
/S  c > v ) 

ACC'S  ( (ms  (SUP  (1*2  A)  )♦  SUR  (1*16)4  CCS  ( SUP  ( 2, ? * ) ) * SLR  ( 2 , 1 P ) ) 
/ S E X V ) 


XCPTE 

XCRT6 


IS  CPFJNPp  AS  THE  Y-STA.  [IF  T.R.  CF  ECUIV.  V TNG  RCCT  CHORD 
* SUF  (2*11)  4 Sl‘P(2*10)4TAMSi;F(2>A)) 

- PC2  * TAN(Sme)  4 CR 


CBAR 

CBAR 


EXPOSED  WING  AERODYNAMIC  CHCFT,  FANRPOCK  VII. P.0-7 
(RL.R(l»20)  + SUF()»lf  ) 4 SL'M2,2C)*SLM2,lf ))  / 

( S LR  ( 1*  16)  4 SUM?, If)) 


TOC  V AND  CIO  F CR  A WING  VI  TP  ? PANELS  ARE  AR  F*  WEIGHTED 


TOC  W = SCRTt  (SIR(1,1P)*SL!P(1, 3)**?  4 SfF  ( 2,  ) P ) * SI  F ( ?,  3 ) * * 2 ) 

1 /(H'P(],lf)  + SLM2,1C))  ) 

CLD  « SCRT(  (Sl'Ml,1f  )*SUR(1»?)<*?  4 SLR  ( ?,  1 = ) * SLF  ( 2,  2 ) 4 4 2 ) 

1 / (SUR  (l#lf  ) 4 SLR(Z,U  ) ) ) 

ARXR  * A.  * ( (5L’R(  1,10)4SL;R  (2,  10)  )**2)  ✓ ( $0°  ( 1 , 1 F ) 4 SL'R  ( 2,  If  ) ) 


PARAMETERS  EFIOV  ARE  FOR  EXPOSED  WING 
CFX  * SUP (1,8) 

C 6 X « SIR  ( 1 , R ) 

CTX  * S Li  A ( 2 , P ) 

X T X * SUM?, 11)  4 SL'R  ( 2, 10  ) * TAMS  L M2, A)) 

XR  X ■ X T X - (P02  - Sl’F  ( l,  T 2 ) ) * TA)  ( SW'PLE  ) 

Y«X  » SIR (1,12) 

YTX  * PC-2 

DXCC  * SL  P ( 1,10  * T AM  SLR  ( 1 , ?1  ) ) 4 SLR(2,10)  + TA  N ( SL'R  ( 2,  2 1 ) ) 


NONE  NT  GEOMETRY 


CR  « MAC  PFFINFO  TO  CFNTFPLINF 

CP  * l,tth 7 * PR  4(1,4  T A PR  * * 2 / (1.  4 TAPR)) 

YR  * FC2  n,  » (l,+2,*TAFP)/(),+TAfR) 

XP  « XTX  - (FC?  - YR)  * TAMSVFLE) 


S . i 


i 


157 


* 
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125 


♦♦♦*♦*  CALCULATION  S F CP  MOMENT  PARAMETERS 

SIX  » 5l=P 1 1 # 1 8 ) 

YIX  « SUP ( 1* 10 ) 

API  « SLP(1>1°) 

IE  (NPNLS.EC.l)  GC  TO  126 


YCX  « SUP ( 2 » 10 ) ♦ 0.5  * YIX 

CRX?  « (YPX  * JUf (2»P)  - 0.5  * 
srx»  * (cpxp  *sip (2>c > j *ytx 
A P C P « A.*YrXA«2/SPXP 


YIX  ♦ SUF(2,o))/SLP(2,lo> 


126 


HOR 1 7 PN'T A L TAIL  PARAMETERS 

XH  * 0.0 
C M F *5  A ■ O.C 

IF  (CMAC.EC.O.OI  C M AC  • CB 
IF  (*CC  .EO.O.C)  XCG  * XP 
IF  (NHT.EC.O)  CP  TO  1 30 

LOCATE  F.T.  MAC/6  ( XFT ) 

XMT  « Sl‘R(Ml*l0)  / 3.  * <1.4  2.*  SUP(N1>1?)>  / (1.4  Sl'R(M)*l?)) 

1 * TAM  SUMMIT  ) ) ♦ SU P ( M 1*  2 C)  4 0.25  ♦ StP("l»ll) 

TAIL  LENGTH  (XH) 

XH  . $Q5T((SUP(Nl,t3)-7CC)**?  ♦ (XHT-XCf- 1*4?) 

OMEC-A  * ATAN2((RLR(M1*13)-?CG)  > ( XFT  -XCC- ) ) 


130 


131 

13? 


1A0 


1 6 Q 


WRITE  (t»2 002)  (PN'AME(l)  > I » 
V'P  I Tv ( 6 * 2CC3  ) <PP0(I»1M>  1 * 
IE  (MFTfcP.LT, 2)  VPITE(6»?GCA) 
IF  CMFTLP.LT. 2)  OF  TO  132 
00  131  I « 1 » 7 . 

MI)  * ocnci.4)  / 1 A A . 

XCI  ) * S l? ( I * 7 ) / 1AA. 

Y(I)  * SI'6  ( 1* IB  ) / 1 A A . 

rr;  tinuf 

CCMIME 

IF  (METER. EC, 2)  WP I TE ( 6 » 20C A ) 
WRITE <6*20G5>  (Pnr(l,7)  * I * 
WRITE (6*2005 ) (SMA^HI)  , 1 * 
IF  (wfTf t.LT.2)  Wc I TE  < ( * 20C7 ) 
IF  (‘'cTEP.EC. 2)  VFITE(6*  2007  ) 
WPITf  ( 6 * ?CCm ) <$UHI*17),  I = 
IF  (VETER.LT.2)  V‘F  I TE  ( 6 *?CC9  ) 
IF  (MfcTtS.EC.2)  wr)TF(f,?X.O) 
W?1U(6*2C10)  (EUm,lR),  I ■ 
WRITE (6*2011 ) ( SUP ( J » 20 ) * 1 = 


cr  i ao 

W ( I ) 

MI) 

Y(I  ) 

7(1) 

CONTINUE 


I * 1*  N? 
SIP (I,?) ) 
SUM  T,  22) 
519(1*23) 
S U P ( I * 2 A ) 


kRITE((>?C12) 
W R IT  f (6*2013) 
WRITc(6*ZMA) 
WR'Tf lfi?(  15) 
WRITE  (6*2116) 


(V(T)  * I « 

(XUO  * I « 
(Y(I)  * I . 

( Z ( T ) , I « 

(SLR  (1*5),  1 


1*  K2) 

1*  M2) 

( BCC ( 1 * A ) * 


I * 1*  K2) 


um  * 

1*  K 2 ) 

1*  N2) 

(SUM  1,7)*  I 
(X(I),  I - 
1*  N2 ) 

( SIR ( I » 1 B ) » I 
(YU  ),  I . 
1*  N2) 

1*  N2) 


I « 1*  K2 ) 


■1*N2) 

*,  N'2) 

U*N?) 

1*  N?) 


4 57,205  E 
4 K 7 , 2 95  fi 

♦ 57.2C5E 

♦ 67.2956 


1*  N2) 

1*  N2) 

1*  N?) 

1*  N2) 

« 1*  A'  2 ) 


MAX.  CAMPER  CRIPIMTF  (FCC) 

F CC  * 0.06651  * CLP 

IF  ( SL-P  (1*1). NE.?)  GC  TP  170 

F CC m « A FC(l) 

CP  ) 60  I * ) *MFP 

FCC M » At-AX1(FFCM*AFC(1)) 

COM  IN'UE 

FPC  • F PCM-  4 CLC/CLOP 


158 


I 


I: 


170  rPMiNur 

KHflUSSifl  RP? 

VCTTE(t»?riP)  ftf-R 
VE1TE(6*2oi9)  CP 
IF  (KFTfR.U.2)  WR ITE  (t#202G) 
5 « SPLAN/1A4. 

ir  (METER  « c C « 2 ) WF ITF<6 >2020) 
V p I T F ( 6 » ? 0 2 1 ) XCP7E 

VP  ITE  (6*  2t22 ) APPEAL 
VP1TF (6/2023)  TP 


SPUN 

s 


SI 

s? 

S3 
S A 
« 5 


SVPLE 
SVFCC 
SWPVC 
S V 0 T F 
SWMT 


V PITF ( 6 * 2 0 ? 5 ) 
VpITc (6*  2o26 ) 
Vc  TTt (£>2C27) 
»«  !T E (c*4Gul ) 
Vp  ] TF  (6*2l2*-) 


SA 

Sf 


* 

4 

4 

4 

4 

51 

52 

53 


57.2958 
57. 2^58 
57 .245  8 
57.295E 
57.2S5P 


(METEF.LT.2)  WR  I T E ( 6 * 2029 ) SEXW 
- SEXW/1AA. 

(M£TFP  .EC. 2)  VF JT£(6>2029)  S 
CEAF 
TCPW 
CLO 
APXR 
CRY 
CTX 
XP  X 
XT  X 
YPX 
YTX 
X? 


2C02 
200? 
2 OCA 
2CGE 
20  06 
21  07 
20  D f 

p or;  Q 

2 C 1 C 
2011 
201? 
2.013 
2f  1A 
2015 
.2116 

'acifc 

2C17 


IF 

S 

I c 

WRITE (6*2030) 

VR 1 Tf ( 6*2031  ) 
VRITE (6*2022) 

VR  I TE ( 6*  ?L  33 ) 
VR]7F(6*203A) 

V p 1 T t ( 0 * 2 C 3 6 ) 

WF  ITE ( e *?037) 

.p  ITE(t*2C3A) 

V P 1 TE  ( 6 » 2 0 AO  ) 
WRITE (t*20A2) 

V c 7Tr  <6*20A3) 
VRITE(6i2CA* J 
VRITH(r.*20A5) 

SI  * omega 

VR  ITF  (6 *2CA6) 


YP 

XH 

4 

SI 


57.2958 


ft'f  *n  ( iwi*/////*?ox*4calculaTcO 


r o p v A T 
FORMAT 
FTP '•■•AT 
Fnfi'j  7 
FpFf  A 7 
FORMAT 
F hp  Mi  7 
FCPMA7 
f r f m A T 
p 0 P M A 7 
F r p p A 7 
F C P v A 7 
f C f M A 7 
FORMAT 

prom  A 7 
FORMA  7 


(//*2X,*PT6FKE?5  PATIO 
(/  *2X,4\. PTTfC  ARFA 
(/  ,2X*4MA>IFUM  AREA 
(//////*?)>*  * C A I rtLATFD 
(/*?>*  4UETTFP  AREA 
(/*?X*  4TAPF.C  RATIO 
</,?>*  +PI ANFPPF  ARFA 
( / * 2 Y , 4 A R F F C T P.ATIO 
( / * 2 X * *CMA?  ACT.  LENGTH 
( / * 2 X * * Swp  r/A 

( / * a x*  + swp  c/2 

( / * 2 x > *RVP  TE 
( /*  2 X * *S’*P  MAX  7/C 
{ / * 2 > * AX/C  AT  MAX  T/C 


a-TCY  PARAMETERS**/ 
4 * 7F3G.3) 

* * * ? F 1 C . ? > 

- * * 7 F 1 C . ?. ) 
SURFACF  PARAR [TER54, 
■ +*  7F10.3) 

* 4 * 7 F 1 (> , 3 ) 

* **  7 c 1C  , ? ) 

* 4*  7F1C.3) 

* * * 7 F 1 * . ? ) 

* 4,  7 F',0. 3) 

* **  7 F 1 C , 3 ) 

* ♦»  7 F 1 0 . ? ) 

- **  7F3C.3) 

«4*  7 F 1 C .3) 


/*?0>*7A1C ) 
//*  2CX*7A1C) 


1 

20 1 E FORMAT 

?01°|f0RMAT 

2020lFCPMAT 

1 

2021  FORmAT 
1 

2022  FORMAT 
1 

2023  FORMAT 
1 

'2025  FORMAT 
1 


( 1H 1 » 20X*  *707  A t AJPPLAKE  P A,R  AME7  E P « **  / / 1 
( 2 X * 4 V T N C SEMI-SPAM 


F 1 C . 3 ) 
( 2X, 

F1C.3) 
( 2X, 

F 10 , 3 ) 
( 2X » 
FK.3) 
( ?X, 

F1C-.3) 
( 2X* 

F1C.3) 
( 2 X * 

FIG. 3) 

( 2X* 

F10.3) 


* F CD  Y 0 1 A / V.  I N 6 SPAN 

* WING  FOOT  CHORD  AT  CERTFRLINR 

* 7HF0.  WING  Pl/SFCRM  AREA 

* X-STA  OF  PCO-7  CHORD  (CP)  T.F. 

+ ECCIV.  VING  ASPECT  RATIO 

* EOl'IV.  WING  TAPER  RATIO 

* COUV.  WING  LEADING  EDC-E  SVEEP 


* P C2 

■*  * 

*0C8 

«*» 

*CR 

»** 

*SPLAN 

■ 4 * 

* XCR  T E 

•*  f 

* A P 

•*  * 

,TApR 

•*  * 

, S WF  L E 

»*  * 
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2026  FORMAT 
1 

2027  FORMAT 
1 

<.001  FORMAT 

2C28  FORMAT 
1 

2029  FORMAT 
1 

203  C FORMAT 
1 

2031  FORMAT 
1 

2032  FORMAT 
1 

2033  FORMAT 
1 

203 A FORMAT 
1 

2C35  FORMAT 

1 

203 6 = OR  MAT 
1 

2037  FC-FMAT 

203P1FCPM.AT 

1 

2039  FORMAT 
1 

2090  FORMAT 
1 

2091  FORMAT 
1 

20<2  FTRMAT 
1 

2093  FORMAT 
1 

2C9 a FORMAT 

209  FQRMA  T 

2096  F o o K A T 
1 

ENO 


WING  ClIARTE  R-CM'OPr  SVFEP 

»SWPCG 

»*  » 

WING  Mir-CWOFT  SWEEP 

> SWPMC 

«*  > 

WING  TRAIL ING-FPGE  SWEEP 

aSWPTE 

•*> 

WING  MAX • TWI CKNF  SS  SWEEP 

aSWMT 

•*  » 

WING  FXPGSFP  ARFA 

aSFXW 

**  > 

WING  EXPOSED  MAC 

>cpaf 

WING  THICKNESS  RATIO 

> T C C W 

•*  > 

WING  2-D.  DESIGN  CL 

>CLD 

•*» 

WING  EXPOSED  ASPECT  PATIO 

> A R X R 

■*/ 

LENGTH  AT  WING  PC-CT 

»f  PX 

**> 

LENGTH  AT  WING  f K f i K 

*CBX 

*4  . 

LENGTH  AT  WING  TIP 

/GTX 

**  > 

AT  L.F.  OF  WING  RCCT 

a X R X 

•*  t 

AT  L.E.  CF  WING  BREAK 

>XBX 

AT  L.E.  OF  WING  TIP 

a X T X 

«*  > 

AT  L.E.  OF  WING  P C 01 

* YPX 

**> 

AT  L.E.  CF  WING  BRAKE 

> Y P X 

**> 

AT  L.E.  OF  KING  TIP 

# YTX 

AT  L.F.  OF  WING  MAC 

**  ) 

AT  L.E.  OF  W.'ING  MAG 

>YP 

•*» 

X C/9  WING  TC  C/*  TAIL 

»Xi 

INCLINATION  LINE  PET.  WING  AMD  TAILjCMECA  , 
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c 

c 

c 


CVfn»Y(3»0) 
PROGRAM  SURVEY 

AERODYNAMIC  SURVEY 


CCMMrN  /IP  Pfl  / A(?OPl ) 
fO*RON  /Ol  TPt  T/  R ( 223  ) 
CC^CM  /CALC/  D ( 5 C ) 
CCMMTN  /RIKDATl/  r C 1 A 1 1 1 
/Pl.KCAT?/  F (COS) 
COMMGM  / E L*  T 1 L / TITtt(f) 


OIPFK’SirK  FRSLPV(?C)#ALT{2C)*SVPV(?0),DLir(?C)>CLHI(2C)> 

1 C G ( ? C ) # cf./"M7)j  SK  A y E ( 7 ) > S L P ( 7 > 3 C > 

riPFVSIOt  TCL(P))*  1 C C ( 7 1 ) # TCM(?1)>  TM?i)»  TflT(?l)»  TCDT(Pl) 

riMtNsiCN1  Triccm#  cdsur n»t),  ccEonn**).#  tctb < t # ictsisi 

CIHNSICN  TERH(S) 


EQUIVALENCE  ( A ( 6) , I $v  P ) , ( A ( 7) , I F Ec  ) » ( A ( A c ] ) , KSUR  V > , 

L (AIA^dFCLAS)  * ( A{  A92  ),FA  SL-RV  (1  ))>(A(r)?)>ALT(l))» 

(A  ( SS2),  SvnVd)  ),  (A  (!  72)»Ct  IC  (1 ) )»  ( t ( Sc2  )»CLH)  (1)  )» 

( A (522  ), CO  (1) (A(27S)>v»lkC)*  ( A ( 30 ) > fit-  A.*  f ( 1 ) ) > 
<A(177),SM"t  (D),  (t(l)#A-PCCYS)/  (M2)»KUr), 
IM3)»mi')»  (il«)MH)»  ( A ( S ) » ► V T ) > (A(’3)*VMAC)> 
U(12),CMC),  (A()4),?CG),  (APfi),SUMl»l))# 

? (A(22)<  ITR1K  >#  (A(A)>NHT)>  ( A ( 1C)  > M tTFP  ) 

EQUIVALENCE  ( ? ( 4 3 ) » Cl  ) » t 6 ( A A ) , c C > t (8<Af)>CM)>  ( F ( A t ) , A l PHA  ) > 
1 (MU?),u),  (P(14‘)»F'*),  (P(]AS)>SV-c  ), 

( P ( 2 A t )»J°ASS)»  (?UC)»AlO#  ( 6 ( 71  ) » D E )# 

( P ( 137  ) »COAFT  )>  (MAPdCDL),  (F  (A7)>Cr.Nd 
(F  (AC)jCOR)  * (E('c)*CLA)»  (6  (106  ) »CIC-B  ) t 
( R ( 107  I * C t PAX)#  (F(53)*CtT),  (P(Sf  ),fPf)» 
(P(S7).DCVCL)>  (P(StT»CciCl)#  (P(S3)»rH), 

1 ( 8 < 5 A ) # F K ) , t P ( b ? ) # COT ) # (F(l  EM  , C D SI P ( 1 > 1 ) ) . 

s (Pdf R)#cr.errn#i) )#  (p( so^ropr )#  (F(ii7)»cr<‘)» 

> (P(13S)»CCMi‘-C)»  (C(c2)>CMCH),  ( P ( 63  ) > XH ) j 

L (P(6A)#rPP  GA)>  ( C ( AC ) > A^T  ) > <c  (6  *;  ) >XCG  ) 


DATA  TERR  /1CHFFTCTICN  »»10HF0RM 
l lOHVAVf  “/loneASE 

IF  (NSUSV.LF.C)  GO  TO  600 
SVP?  * SV’FVd) 

A F f>  D S « N6G0YS  + KM  AC 


• >khikterf 

» / 


N ^ 0 9 S 
Ml 


NPUS  ♦ NHT  ♦ MVT 
KPMS  + 1 


PCWiNO  10 

J° ASS  * 0 

DO  5GG  L * 1,  NSUFV 

F M « FPSLSV(L) 

H « A l T ( t ) 

SLEEP  * SLPV(L) 

CL  LOW  * CLLO(L) 

XM  . O.o 

C-PEOA  ■ 0,0 

XCG  » XMAC  ♦ CM AD  + CG  (l  ) 

IF  (NH7.6C.C)  GC  TO  2CC 

XHTl  • XHT 

IF  (FM.GT.l.G)  XHTL  » XHT  + SLR (Ml»?C)4C.Ff 
XH  . SCPT(  (SDP(^l#12)-ZCG)*  + 2 ♦ ( > *-Tt ->T0  ) **2 ) 
C K EGA  •ATAN2({SL«MP:>13)-ZCG)»  (XHTl-XCC)  ) 

CONTINUE 

XNCl  - MCLAS  - 1 
O'" L « 0.0 

IF  ( XNCL.GT.0.0  ) OCl  = (CL HI  ( l ) - C II. C ( l ) ) /XNf.L 
2LP  « SV>FEP/57,?CS'77C6 

Jc(  ISVF.GT.O.AKO. SWEEP. NF. SVP2  ) JF  ASS  ■ 0 
S«P2  « SWEEP 
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c 

c 

c 

c 

c 

c 

c 

c 


Jf(  ISWP.GT.O.AND.JPASS.fO.C  ) CHI  CV  E R l AY  < AKOVl  Y,  3,  1) 
PROGRAM  VCFCK  CALLED 

I F C JPASSiPO.O  ) rill  CVF»LA Y(AHDVLY,3,2 ) 

PFOGRAH  MC  e I T CALLED 

CALL  OVt-UAYtAHm  Y,3,3) 

PRCGSAM  AERCA  CALLED 

IP  t JPASS.EC.P  ) JP  ASS  • 1 


DC  3CC  N » 1#  NCLAS 
YM]  * K-i 
CL  * CLLCW  ♦ TCL 


XH1 


CALL  CVf FI  AY (AHTVL Y, ? , A , 6HP EC  A LL > 
PRGGFAH  AFROC  CALLED 

IF  (M.CT.l)  GC  TO  220 


WRITE  t fc»  1 CCS 
CK  « -H  *1 
IF  (ITR1K.EC, 
1 F ( H • G E .0.0. 
IF  ( M , G i . C • 0 « 
IF  (H.LT.C.O. 
IF  (H.LT.C.v,. 
IF  (NHT.EC.vJ) 
GO  TO  220 
210  IF  (H.GF.C.C. 
IF  (H.Gf.O.O. 
IF  (H.LT.O.C. 
IF  (H.LT.O.C. 


) (TITLF(K)#  K-1,6) 

. E 6 

1)  GO  TO  210 

ANT.NR TEP.NF.l)  VPITF(6»lC0n 
ANr  * " E TF  F tFC.l)  VPITE (t,lf 12  ) 
ANO.FFTEP.NF.l  ) VPITF(6»U0<;) 
ANO.RETER  .EC.l  ) WRITE  (6»K  13) 
WRITE (6,1016) 

AA’P.PETFP.Hs.n  W»JTF(6,1C0C) 
AND.  NETER.  EC.l)  W-  R IT  E ( t , 1 M «.  ) 
AFP.  DETER.  NE.l)  W R IT  E ( (■ , 1 (.  Cf  ) 
ANC.Nf  TER  .EO.l)  »*JT?(fc,lCU) 


FK>  H,  5WFFP 
FH,  H,  ‘VEEP 
F«,  RN,SVFFP 
F K,  R N > S W E F P 


Fv,  H»  SV  FEp,  f.H 
FN,  H , SWEEP,  DH 
F«.5)>  S V F E P , CH 
F K, RN,  SVFFP,  CH 


220  ANCLE  c ALPHA 

1 f ( IREF.fC.l  ) ANGLE 


• ALPHA  - WINC 


C”RA  . CDR  + CO-AFT 
TOLL  = CORA  ♦ COI 
TH  * C H + Of 

IF  ( ITPJP.EC.y)  WF  ITE  (A,  1001 ) CLT,  COT,-  OH, 

1 CL,  CD 

IF  ( I TP  IP. EC.l)  W'R  I TF  ( A , 1 001 ) Cl,  CD*  CN, 

1 CTAFT,  CTLl 

T C L ( H1 ) - CL 
TCC ("  J * CO 
TC.MN)  * Ct-jH 
TA(")  = AN'C-LE 

I CL  T ( F ) * CLT 
T C 0 T ( N ) * COT 

30C  CONTINUE 

ALC-R  « ALO 

IF(,  IRFF.FC.l  ) ALC1P  * ALO  - V INC 

WRITE  (6,Kv2>  CIA,  A.  L T P , CLCP,  FK,  CELCL,  GIHAY, 


ANGLE,  CDL,  CDRA, 
ANGLE,  CDI  , CDR, 


cho,  tcmcl 


W°ITc(f,10C3)  (FNA«F(I),  I « 1 , A ? CDS ) 
rO  3 1 0 i « ] , 5 

7 CTC  ( J ) ' = CDPC0(l,J)+frc-r-O(2,J)FCDPO,'(2,J)+CrFor{A,J)  + f.rEO0(E,J) 

1 ♦crFrr(p,j)  + cr<f,c,'(7,o ) 

.310  VPIT6  (6,1C0A)  TFRN(J),  TPTHJ),  (CCFCC(I,J),  I«l,NFCrS) 

VPITF ( 6 , 1C  10 ) (SNAHE(I),  I*1,NSLPS) 

Cr  220  J * 1 , A 

TCTS(J)  « CCSUF(l,J)4CrSLF(2,J)+CrSLr(?,J)4CCStP(A,J)+CDSLP(,,J) 
1 +cr‘l  R(6,vtHC0SLR(7,J)  . , 

320  V?  ITE  (6,  1 GOA  ) TFRf-'(J),  TOTStJ),  (CCSIR<1,J>»  I«l,NSl:pS) 


W’RITF((-,iCll)  C DC  , CDPC-,  CD."  I SC 
WKJTE«6,lCr07)  CON 

IF  (NRNLS.E0.2.ANC-.FP.GT.1,0)  WF  1TF  ( c,  1020)  SNAKE  (2), SNAP  6(1) 
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V R I TC 
VR1TE 


(1C) 

(10) 


TCL, 

B 


TCP,  TCP/  TA,  TCIT,  TCfT 


500  CONTINUE 
6C0  CONTINUE 

1000  FORMAT (IX#  A MACH  NO.  -4F6.3,  5X , ♦ ALT  ITIOF  »<c7.0/4  FT.*/  5X, 

1 ♦ S V Ff  P ANGLE  «*P6,?/*  PEG.*/  fX.+TAll  FEU.  { Dw  ) .*R/,.2/ 

2 * REG.*  //T1C/*CL*»  T22/*TCTAL  C 0* » . T 2f*  » *C  K*  / T53/*ALFHA*» 

3 T?C,*Cn  * > TF3/*CPF*/  Tc7>  * C PA  F T* » 

A T1T?»  *'‘P{L4lU/FT)*  / / ) 

1014  FORMAT  ( 1 X , 4 8>AC F NT.  «4F6.3>  5 X/4ALTI7UPE  • 4F7.P/*  8FTFRS*,  5 X 

1 4Sv.EcP  ANG l c **Ft.2,4  PEG.*/  5X , *1  All  ncpi.  { r w ) *4Ffc.?, 

2 4 CEG.*  //T1C/*CL4,  T22/*TPTAL  CP*,  T 3 F , *C  M*  , T 5 3/ 4 / L ph  a 4, 

3 T70»*cn  4 » TF?»*COF*»  T£57»4C.0AFT*> 

4 Tii3>*Cr(l4P4AFT ) 4 , / ) 

ICO]  Fr&8AT<£X,Fe.3,?F15.5/  F16.2/  4F15.5) 

1002  RQRN/T ( /ION  CIA  «/ R F . 5 * 1 X /*  P EF  DEG.+/10F  ALC  «/FE.5/]X, 

1 *CF(-.4,  2<?X,UH  C l OF  */FE.5  / 

1 10H  K «/FP.5/  <?X»  1CH  DELCL  »/Ff.5  , 

2 34X/1GH  C L m A X */R5.5  / 

3 10H  CND  *»FF.5,1K*,PX,  10H  C^/Ct  */Ff.5/lH4, 

4 1CX,  12H(  4TA1 1 C'E c ) , II  ) 

1003  FPf>AT(»  0?  AG  PtEAXOfVj. * , 5 X*  7 ( A 1 0,  5X  ) ) 

1014  ftrkak  SX,A1C,  F7.5WF15.5) 

1 1 J 5 t C F P A T ( 1 F 1 / /IX,  6/10  > 

1C06  FORK  AT  (IX,  *8  ACH  A 0.  **F6.3/  5X,4PN/FT  = * IFF  15 .4/ 5X, 

1 4t.E.  SLEEP  ANGIE  »*  C-PF6.2/*  D F G .♦  / *.x , 4T  A I L PEFt.  ( f.  H ) «4 

2 Ft. ?, 4 PEG.* 

2 //T1C/*CL*/  T??,4TCTAl  C04,  T2F/4CN4,  T 5 3 / 4 AL  F HA  + , 

3 T70,<<:r-(  4 , Tf3,4CF,P4,  T97/+C0AFT4, 

4 T1 1 3>  *CD( L 4R  + AFT ) 4 , / ) 

1015  FOR  .“AT  (IX,  4 8 ACH  NO.  **R6.3/  5 V , * ? *•  / 8 c T F F « * 1 PE  1 5 . 4/ 5X  / 

1 +L.E.  SWEEP  ANGLE  «♦  CPF6..2/4  rFG.+/5X/*TAIL  DEFL.  (OH)  ■* 

2 Ft. 2/ 

2 * CFG. ♦ //710/*CL*,  T22,4TCTAL  CD4,  T 38 > 4C V */ T 53 * 4 A L PF A 4, 

3 77C,*CC'L  * , TC*/*Cn-*/  T°7,4rn/n4, 

4 Tll?,»cr ( l 4 P 4 / R T )4  , / ) 

1037  FOR  PAT  { / 5 X / HP  COKIN  *,F7.f  II) 

1 CO  8 FCPKAinx,  4p  ACH  xr.  =*Ft,3/  5 X , 4 ALT  HIT  F *<R7.C/*  FT.*,  5X, 

1 *L.F.  SLEEP  ANGLE  = * F 6 , 2 , * rEC . 4/ 5X, 4 1 9 T 88 F 0 f 0N  0 | T J ON  4 

2 / / T 1 0, * C( *,  T 22/ 4 TOTAL  CC»,  T3F,*CF4/  T53/* ALPHA*/ 

3 T6fl/*C0  l 1 F I * , T f 2 / 'CL'  R 4 / F T < / TR7/*CL  AT  OH  «C*/ 

« Til?/*CP  AT  PH*04,  / ) 

1 Cl  2 P0E8/T(1X,  *8  A^h  M?.  = * c6 . 3 / 5 V , 4 A L T I TIT E **F7.C/*  8CTERS*,  5X  , 

1 41. F.  S v £ F P ANGIE  ■♦Ft.?,*  rFG.*,cX,4TFIP8Fr  COCIUTM 

? //T1C/4CI*,  TP2, ‘TOTAL  CD*,  T?F,*nF*,  Trj/*/LPHA4, 

3 Tt  f / *CP  LIFT*,  TF2,*Cr  P + A FT  * , T97/4CI  AT  OH  = C*/ 

4 7113, *CC  AT  PH  = (>*//  ) 

1C09  F0F8ATUX,  *8  ACH  FT.  «*F6,?/  f X/4RN/FT  **]PF1C,4/5X, 


* I . £ . SWfEF  ANflF  »*  CFF6.2,*  OEG  .*/ 1 


X,*TFI8>FC  CCA  Oil  ION* 
//T1L/4CL*,  T22, ‘TOTAL  CD<,  T3c,*rW4/  7‘3/*ALPHA*/ 

T 6 P / *C  P L I F T 4 , TF2/4CC  F » AF  T*  » n7,*CL  AT  CH  = C4, 
T113/+C0  AT  nn*04,  / ) 


1 
2 

3 

4 

1 Cl  3 4 
3 
2 

3 

4 

101G  R P R 8 A T ( 4 
1011  FPPKAT (5X/10HC A8PFP  *,F7.5, 

1 / 5 X / 1 C’HP  R A G RISE«,F7.S, 

2 /5X,10H8I'C  » / F 7 . 5 

1C1 6 F0P.8AT  (36X,  4F.LCVGK*  ) 


•PHAT(1X,  4N/CH  Ap,  » 4 F t . 3 , 5X,4RN/8£TFP  * 4 \ P E 1 £ . A / 5X , 

4  L . F . SWF  r F At.  GL  F * * OFF  fc.?,*  CpC  ,*/tX,*TF)8F'EC  CCNP,TTCN  + 
//T10/4CL4,  T2?,4TETAL  CP*/  T3f,4p.M,  T 5 3/ » A l PHA  * > 

T6P/4CP  LIFT*,  T P 2 / * C P F 4 A f T*/  T°7/4CL  AT  DH  »C*> 
T113/4CC  AT  OF*l>*/  / ) 

*/5X/ 7( 410/ 5X  ) ) 


1 C2C  FCPH/T 
1 * 
END 


( 

IS 


lilt  5 X/ 
INC  LUC  E r 


♦ NTTE  • 
IN  V/VE 


WAVF  DRAG 
OR  AC  CF  */ 


FOR  4/410/ 
A10) 
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onn 


SUBROUTINE  ADJUSKID,  ID2>  XVAR>  YVAR ) 
ADJUST  Y-VARIAALE  USING  CORPEtATICN  FACTORS 


C 

C 

C 

C 

C 

C 

C 


CONNON  /INPUT/  APOfl) 

/PIKpRT/  K pc ] NT ( 50  I 

CIKENS1C.N  IV  At  (20)*X(15),YK(  15»<?)»YA(15»  c ) , X C L (IE  ) 


EOLIVAtENCE  <A(f3r),IVAL<l)>» 

1 (AtPG7),YA(l,l)  ), 

2 ( A (65?  ) > NXVAR), 


I AIM  I Im  I J ) Jl  l 
(A (SA2  >,XCl (1  ) )> 
(A(655),  RXCL) 


IKK  ICIliruM 


c 


YVAR1  » YVAR 
I F ( ID.EC.O  ) Gf  TO  BuO 
C NV  * IVAL(IC) 


I F ( KV.EC.O  ) RFTt'RN 

no  rm  lntpcxvar,  va,  /,y“(unv),  nxvar,  2) 

20C  CALL  LMP(XVAP,  VA,  X,YA(1,NV),  *XVAR,  ?) 
GO  TO  50C 


200  N”  = IVAKI02I 
IF ( NV.EO.O  ) PETl ON 

A00  CALL  INTP(XVAR,  V A#  X C L » YP ( 1 > K V ) » NXCL,  2) 
CALL  LNTPtXVAR,  VA,  XCLkYA  ( 1 , K V ) » NXCL,  2) 


500  YVAR  * YVAP1  ♦ VC  4 VA 


IP(  KPRIM(2A)  .60.0  ) RETURN 
WC1TE < A , 1 CCG ) in,  YVAP1,  XVAP,  VP,  VA,  YVAP 
100T  FORMAT ( EX, *ArjUST  DUMP*,  EX,  *ID  *+> 15 /I X , 5 F 15 . S ) 
P f T U C N 
ENO 
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r 


I 


i 


i 

s 

i 


t 


c 

c 

c 


r 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


f 


c 


CVf  PLAY(3#1> 

PPCCP4K  VC-FPK. 

CONPUTES  GECf*Em  FOR  \AFIAPLE -SWEEP  C O FI Gl'F 4 T ITKS 

COU'CN  /CALC/  PP2>  DCP » C<?»  SPIAN>  XC&TE> 

1 SVPCC#  SV^C,  SWPTE#  SVIU,  SFXV#  CEAF, 

2 70CV,  CLC'j/.FX&jCFXfCTX/XFXjXTX# 

3 YFX/YTX>XF»Ya,5UFT,yYZ,  SVFIF>F0C> 

4 S‘‘PV»KPifS»Al«PUK'/TP#YJX/ST>»/.FT*CEXP/ 

5 SCXP>  AFCP»r  XOC»TL  I ST  # W 3 N C , > U > T K S * C 6 A P2>  C L CS> 

6 YC-X>  Slr-PKf  S<  T Ai>PACl>CA2jf  ACP>rT0C 
CETf-ON  /8LKFPT/  KFSIF-TC50) 

CO  Yf*CN‘  / IN  PL  T / i (3051) 

CGrrON  /OIIFIT/  B(??3) 

riYFNSTCN  X ( 6 ) » Y (6)>  XT(fc),  YT(6),  C(()>  P(t) 

D'lPFNSlFN  Sl'F(7,3C) 

EfblVALFNCE  / A (1  8*  ) , SUF  (1 , 1 ) ) , (NPNLS>A(2)>,  ( A F T A V , A ( A9C  ) ) , 

1 (AFTCPtAC  4fp))»  (ArTCC»A(«-FC))»  C A FT  S V,  A ( 4F  7 ) ) » 

2 (XPUPT,  A <4*4  ) ),  ( YP I V(?T>  A ( 4C 5 ) ) j < $WPF  ,/ <21  ) ) 

ECLIVALFNCE  (SWP>  P(145») 


T « APS  ( SViP-SV  PV) 

IF  {KPASS.EO.O.ANC.T.LE. 0.005)  GC  TO  IOC 
IF  (KPASS.EO.l)  GC  TO  ?f 


r a i * c.o 
r a c l * o.c 
OA2  « o.o 
0AC2  « C.O 
OTCC  * C.C 
SV?X  * SOP 
$l.P  * s V PR 


25 


30 


N!  « NPN'IS 

Y >’  2 ) * S L p ( N ; I ? ) + SL'P(NMO) 

F T A • SI'F(N.I2)/Y{2) 

CP  * (Sl'MK>  =>>  -FT/  <SUF(N>  9))/(l.-FTA> 

T AN  SR  = T A N1  ( S 0 P ( N‘  > 2 3 ) ) 

CZ  « SIMA,?)  < TAN(A(15)/57.3) 

CPOCF  » 0.'  * < TCS<Sl>°(N#4))/C05  (SLF  ( A!  > A ) -S l ° ( N, 22  ) > 

1 ♦ COS  (Sl'F  (N  , 23  ) ) /COS  (SLHK>  22  ) -Cl'c  (N>  23)  ) ) 

X ( 1 ) = Sl!fi  (N>  11 ) - SIP  (Nj  12  ) ♦TANtSlP  (N'/i  ) ) 

X (A)  * X ( 1 ) + C3 

YU)  « 0.0 

Y ( A ) * 0.0 

x ( 2 ) = X < 1 ) + Y<?)  * T AS'  (SUF(N/A)  ) 

X ( 3 ) = X<  2)  + SLIF(N.C) 

Y ( 3 > * Y(?) 

rc  30  I * 1 » 4 

DU)  * SOP  T ( C X ( J ) - XPjyOT)*A2  + (YU)  - YPIV07J+  + 2) 
P(I)  = ATAM(MJ)  - XFIVOT)  / < YU)  - YFJVOT)  ) 

If  ((YU)  - YFIvm.LE.C.C)  F ( I ) * P(I)  + 3.141592 

CCNTINLE 


35  CONTINUE 

DSVP  * SVP  - SUPP- 
S V.  P V - SWF 

rn  AC  i * i > 4 

XT  (I)  = XPJVOT  ♦ ('(I)  * S T K < r S W P + F(D) 
YTU)  * YPIVCT  +TU)  ♦ CO.MCSWP  + PCI)) 
40  CONTINUE 


DXCC  « C . 7 5 * X T (2)  +0.?5*X(3)  - SLUlUl!  -S  L'P  ( 1 , f ) *0 . 2 5 
S*PTr  = A T A N ( ( ) T ( 3 ) - XT (4))/(YT(2)  - YT  < 4 ) ) ) 

SVPLE  = SWP 

CC  « TAK'(SFPTF)  / TAN  ( SWFL  E ) 

SFPCC  ■ ATakUI.O  - (1.0  - C01/4.C)*  TAN(SLPLF)  ) 
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I 


SWPK 

mr 

XAFT 

reap 

CPCC 


CCF.TJNUf 
TTJP 
TUI  ST  * 
VINC  = 


‘ t»msvpiei  , 

. VAH  - xao1'21  * TAN{swpTE) 

“ 0,5  * ( rOS(SWPlE)/COS(SkPlF  - Si-PH")  ♦ rCM^PTH, 

» S(P(V>?)  i CPTf/cPCCP  CCSfSWPfC  - SvpTf)  ) 

* * CPGC/rPOCP 

* T I i c ) 

* SUP < 1/1?) /Pf2 


Be  : ’—cu.,  , i.oi 


il*MOZ/tfPripIn’n  )l  * *57  ?cf  ” ],C>/CRCIP 

M275I  MI.-TAMam4Js$HrG5<r5VP) 


rl^.1  * *T(4)  + YM?  * TAMSVFTF) 

Tnru  s Tire 


Tpa  = TCCS 
CLD  * CLPS 

swpfcs  * svpfc 

IP(  NFN'l  S . £ 0,1  ) CO  TO  46 

fi  * UJi^'^TOM/IYTT^J-YTO)) 

lCSi.Fr(.s2)(C.ft1}n<igMJ,fi  ‘5W°«>n)-StP{2,fl)j /SUP  (1,10) 
SGLVt  FGP  TE  LIKE  INTERSECTION  YI  ♦ . 4 M M * * ♦ +4 + * 


CA 

SY? 

STCTAL 

TCCV 


*6  SUET 
TP 

C EAR? 
CPAP2 


" aT(A>'S<'0<l»ll,.|iai,||  +S1*YT(4)  “S2*£L'R(  I>12)  )/ 

« HV l pi1-0 (?* ui-sumzitn  msl<e<?,i»)  -yij 

* 5l‘R(l>lS)  ♦ sx? 

: MM\'  f.fi'5  !eHi : 

! SUE  IN, 24)  + cjtp 

* TGC V + 0 TGC  ♦ OSWP/DFTSW  - SVPE) 


TF  (NFK’LS.EC.D  Gf  Tf  47 


COS  F'C 

crscc 

TAME 

tamf 

ca^T 

SVCPC 
5 V P C C 
5V  PI  £ 
SWPTE 
SKMT 


= f Q> * ■:!■ e ( i>  22 ) ) ♦si,p(i>i2)  (fr'i^.Pt'Mocvo 

; I [iiiSil  IKii-lH  •: ! !;| 

* cost £UF (1,24))  ♦si-Euaej  +pcS(ivn)  *S>! 

* ACTS (CfSFC /STCTAL ) 

* ACOSjerscr/fTrTAL 

c ) 

= A T A M T A NTF/MCTAL) 

* ACCS (COSNT /STCTAL { 


CCNT  IF  L E 

SFXL  > STCTAL 

fPX  . fPX? 

CTy  * CRCIP  ♦ T® 

; r > * ‘ x 2 

YCX  = YMD  - YUT 

TF  (K-PN-LS.Ef  ,1  ) CC  T C 4ft 

YV" 2 • f sue  n,i?)  + svF te,iz)}4G,P 
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I 


c 

f 


c 


c 


c 


CPXP  « CRCtP  Ml.-YV?  Ml.-TR  )/YHn 
SPXP  • (PPXP  +riX)  MYKIP  -YV.2) 

A«CP  « 4.MYPIC  -YU2  )**?/$PXF 
48  AF>?  . 4,MY‘>If'  -CUR(1»12))**2/SEXV 
FCC  - 0.06651  * CLP 

IF  (KPASS.FC.l)  r,r  TO  50 


IF  (KPASS.FC.?)  CP  TO  Ag 
Oil  « SUptK',7)  -5VFT 
DAC1  » S b R ( N‘  > 2 0 ) -CRAP2 
S»>F  . APTSW 
K p ASS  « 2 
CP  TP  35 
49  PONTIME 


I F ( AfTAL.GT.O.C  ) OA?  • AFTAV  - S'-ET 
Ic(  AFJCP.PT. 0.0  ) PAP?  » AFTPB  - CEAR2 
I F ( AFTPC.GT.C.O  ) PTCC  « AFTTC  - TCCS 
XPASS  * 1 
SVP  ■ SWPX 
GO  K 3 6 
50  CPNT.INUE 


IF  (KPRINTtlS)  .FO.l)  ','PITF  ( o>  3 CCO ) KPASS,  fVPV#  rAl,  0AC1, 

1 CPnfc>  C A ? , DAC  2 » OTCC,  CA,  SWPjr.S,  fprr» 

2 TVIST,W)FC»SvFTiCFAP?tCl05#TrCSiSVFT»0CE^ TCCV> 

3 CLr»SfXW»SVPtF,SVFCC*SWPA'C/.cVPTF,APPlAh>TR;SPLAN 

1000  FORMAT  ( 5X  , *UPEPM  PUMP,  KPASS  30X,*SVPLQ  •*  F12.4  / 

1 (IX,  7F15.5  ) ) 

ICO  CPf-TINl’E 
END 


J 

i 


i 


j 
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r 


c 

c 


I55%lagSigig 


CVFBLAYd,?) 

PRCC-RAM  MCRIT 

COMPUTES  CRITICAL  MACH  NUMBER 

COMMON/ INPUT/  A f ?0  C1  ) 

COMMON  /Cl. T PUT/  P<22?> 

Cr-KMpN  /CMC/  C < r/  0 ) 

COMMON’  /ELKO ATI/  C(Hll) 

COMMON  /“IKOtT?/  E(°0B) 

COMMON  /ELKMCR/  CLMCM3C)#  XKCPdOd  KMC  R > FA(3?)>  *P(B2d 
} SC(32),  SO ( 32  ) > St(3  2),  XU32)>  ZT(32)i  ?S(32) 

1 p R DC 

OT^NSICN  CLTAP(21)>  Uf'MMZD,  ?CH  7*  RC) 

FCL I VALENCE  ( F ( 1 ) » C LT AB (I ) ) , < P ( 2 2 ) , T AE MC P (1  } ) , { A ( 2 7 ) > 6 0C ( 1 > 1 ) ) 
1 » (A(3)>mfk-lS)»  UMfc7),FMCRP) 

10  « A d f A ) 

TOC  « C ( 1 2 ) 

SWEEP  * C ( 7 ) 

Ic  (NPKLS.FO.l)  C-f  TO  10 

ETA  . A ( 26  2 ) /C(l) 

IF  (ETA.LE.j.5)  SWEEP  * A(332) 

10  CONTINUE 

CLC  » C ( 13 ) 

Aw  « f ( 29 J 
?A MX  « BCR C 1#  7> 

9LNS  * eco(ii«n 
FMCRS  f o.9Pf 
FPN  * 10. 

IF  <°AMX  .CT.O.O)  FPN  * PlN'S/SCPTt  o?eEA  +PAKX) 

IF  (FRN.LE.fc.2f)  F^CRB  = .??  * - 


? 2 * F R K * * . 1 

IF  dD.LE.23)  CALI  CP7.T  < IQ,  C .6,  TCC  , CLC#  S V F F P,  Ap  , FMCSP  ) 
0.0 


IOC  CLTAP(l) 

r0  2uO  I * 1,  11 
IF(  I.CT.l  ) CLTAF(J)  = CLTAB(J-l)  ♦ 0.1 
CALL  LNTPlCLTArd),  TAPM(ffd),  CL".CR,  XM.CR,  N*CR, 
CALL  ACJtF7(0,A,  ClTA°d)»  TAfMCRd)) 

I F ( TAPNCF  (d  .LT.f  .0  ) TAPMCF(I)  - C.O 
I c ( TAPMf9( 1) .CT.FMCKF  ) FMCCP  * TAPMCR(l) 

200  CONTINUE 

300  WRITE  (6#  2 COO)  (ClTABd),  TABMCPII)  , I *1,11) 


2) 


lOOO^C-RM.ATt  1K1, 
FNO 


5X,  * MACW  CRITICAL  T A B l F * III  5X  * 

+ MACK  CRITICAL  * / / (5 X > 2 F if  , A ) ) 


CL  *,  5X 


oono 


m 


Sl'BROOT INE  CPZT(10tXFACH>TC!C,CLD»SxP>AR,FPCRe) 

CALCULATES  A I » F T I L PPFSSURES  - PRITISH  METFCT 
ANP  CC'Mf  UTES  PACH  CRITICAL  USIN6  CRfST  CRITERIA 

COMMON  /PLKPCP/  CIMfR(lO),  XNCF(IO),  K'NC  R » S A C 32  ) # JM32)> 

1 SC  ( 3?  ) > 5D  (22  ) > St (22),  XU(22)>  71(32),  75(32) 

1 , RCC 

COMMON  /P.LKPRT/  KPR  1ST  (50) 

PIMFNSICN  COS  E ( 3 2 ) , SINF(32),  YCPI132),  CZPXLT02) 

PI  « 3.mf°27 

t E P « SWP  * 57.29578 
CCSPHI  * ( COS(SWP)  )4*(AP/(1.A4AR)) 

I F { SWEEP  . FT. AO. 0 ) CCSP^I  « 0.!?  ♦ < C Q 5 P H I 4.7PFCA**  ( A F / ( 1 » A 4 A R ) )) 
COSPHI  IS  THE  CrSIKF  OF  THE  EFFECTIVE  ISCPAF  SWEEP 
• ACCS(CC'SPHI) 


SUP 

NX? 

NMCR 


31 

C 


CO  AoO  I«  1,NCP 

XI  « I 

XN  * NCP  4 1 

NX  « *CP  ♦ 1 

crsE(i)«  crs (xi*pi/xn) 

SIKIII)'  5IN(XI‘PI/XN) 

XUI)  * 0.54(1.0  4 COSF  ( T ) ) 
IOC  CONTINUE 

CALL  SECT  ( 10,  TCC,  CLP) 


ALPHA  * t.O 

350  A - ALPHA/57. 2<?6 

KM-CF  - NPCR  4 1 

XL*  * XPACH 

IF(  Xr.  .GT.G.S  ) XP  * 0.9 

imxp.le.o.u  ) yy  • o.oi 

vp?  • * yp**2 

IF  ( KPPINT(l)  .EO.l  ) W^ITE  (fc,lC01)  XX#  ALPHA,  SVFFP 


ci : 

CL 
PCPIP1 
PCPM1 
CPI 
CH 

CO  500 
S a ( I V ) 


0.0 

« 0.0 
« o.O 
* 0.0 
* 0,0 
■ 0,0 

IV  ■ 1,  NCP 
o.O 


IF  (IC.LT.lC.PP.ir.C-T.2C)  SP(1V)  « C.C 
S3 n X » |(-1.0)**IV  ~i.C)/(XN4(1.0 

SC ( I V ) * S2NX  4 cCRT(P0C/2 ,C) 

SP(1V)  *0.0 
SE(IV)  « 0.0 

CC  AGO  IU  « 1,  N'CF 


I MV  * IU  - TV 

51  = X S / c I F F ( I U ) 

5 2 * CCSP (IU)/ (SINE(JU)**?) 

53  « xf  /st>  r-(H  ) 

SA  * XN/SJNE(IU)  - 2,0  4 

L I » *■  SJVF(IU)  * 

S 5 « - S2 


4 CQSE(IV))) 


( (“1  ,0)44  T i'  -i  ,o)  / 

(i.e  - c r s c { i u ) ) ) 


I F ( IU.EC.IV  ) C-0  TO  150 


- 1.0  ) / X N 

r os  f (iv)) 

SINF(TL’)  / ( C E P 4 * 2 ) 

4 4JPV4S JNf (1L) )/ (SJNEI JV)*rFF> 
SIGN  * 2,o  4 (l.C/(SJP’E(Il  ) 4 r F M ) ) 
( 1 . c - CCSE  (K)*CC*r(IV)  ) / 

< S JN  e ( I V > * nrM4?  ) 

- P.C  ♦ ( (”1.C)»<II'  -I  ,C  ) / 

(XN  4 S I N E ( IV)  4 (l.C  - CCSF (II ))  ) 


S TGN 

= 

( (-1  ,o) * 4 i N V 

OF.  P 

S 

(CPSF(IU)  - 

SI 

* 

SIC-4'  4 2,0  * 

S 2 

X 

(-2,0* (-1  .(  ) 

S3 

* 

SI 

SA 

X 

2.0  ♦ SIGN  * 
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150 


$5 

CONTINUE 
SA(IV) 


« -2.0  * (-l.a)*«m-  7 DEf 


SM  TV)  + $] 


♦ Z T ( It  ) 


JUU.IT.IO.CP.U.C-T.PO)  JP(JV)  * $MJV)  +S2 


400 


'C(IV) 

SO ( IV) 

U (IV) 
COM  I M/E 


5 C ( IV) 
SC<  TV) 
SE(JV) 


♦ S? 

+ S* 

♦ S5 


* 2 T ( ) 0 ) 
*?S<11') 

* 2 S ( I U ) 


* ? T 1 1 1. ) 


CAU  CPL'CVa.u,  A#  SWP,  IV#  CPIL#  CPL# 
CALL  CPlTVt-1.#  A#  SVP»  IV#  CPIL#  CPL. 


XP) 

XM 


OCPI 

ccp 


CPIL  - CPU 

c.pl  - cpu 


C2CXU  « S»UV)  + SE(IV) 

TZPXL  IV)  + S E ( IV) 

YCPK  TV)  « CPIU 
CWCXOTUV)  « czrxi 

I F ( KFRIMU  ) .FC.l  ) V p I T F ( 6 > 1 CCO  ) XU  ] V ) # CP  I l#C  PI  l * DC  P 1 # OZOY 17 


D2CXL#  CPU#  CPL#  TCP#  XU(IV) 


PX  • XU(NCP) 

XR  * C.5  * (1. 

IF(  IV.f.F.l  ) ‘ 


TF(  IV.KE.l  ) 


CLI 
CL 
CM 

C * ■* 

OCP I PI  * 
CCPU  « 

50<)  C0MINL6 

CL  I 
CL 
CM 
C* 

CPCFIT  * 


Cl  1 i 
CL  + 
CPI  + 
CP  + 

OCPI 

CCP 


4 yum) 
ex  = xunv-i)  - xunv) 

XF  - C.r-  * (XU(IV-l)  + X L ( I v ) ) 
r-x  i (pep  t 4 re  pi  pi)  ♦ c.5 
rv  ♦ (ocp  + ccppi  ) * c . i 
OX  ♦ (TCPT  + CCFIPl)'i,I  < < y p - C.26) 
CX  ♦ (OCP  + DCPP1) .♦C«J  * (XP  - 0.25) 


CLI 

Cl 

f VI 

C" 


XUUCP ) 
XU (per  ) 

VL'UCP  ) 
XU  <NrP  ) 


DCFI  + 
OCP  * 
ocp:  i 
nrp* 


0.5 
C.5 
0.5 
0.5  ■ 


* 

* 

4 
♦ 

( 1 .42*  5 7/Xv2  ) * (C.52F2?  Ml.  + C.2  * X u2  ) < ♦ 3 - 1 . ) 


* (0.  C+XL-(NTP)  -C.?5) 
(C.i*XL(NCP)  -0.25) 


600 


Ic(  KPFINT(l)  .C-T.O)  we  JTt(6#1002)  Cl  I # C p I # C POP  I T#  C L # CP 
CONTINUE 


I F ( A,LT.P7PXUT(NCF)  ) C-C  TC  610 
M'CF  * PPC®  - 1 
ALPHA  * ALPHA  -1. 

60  TO  350 
C 

610  CALL  L M F ( A # XC^EST#  C7C>L'T#  XU#  ►.CP#  A) 

C 

620  CALL  LNTP( XCPEST#  CFCF#  XU#  YCPI#  NCP#  A) 

C 

C.PCMT  * CPCP /CPSPHI**2 
630  CM.?  « CPfPST  * C PC  p 5 T 

y • ■ C CM  « l,/(  1.C223  -.6?6°*CPCR'-T  -.36.3+CFI2  - . 1 ? ?(*C  PC  » S T * *2 
1 -,0I73*rprF$T<*4) 

I F ( IO.EC.F  ) X^CO)  = 1./I1.C12  -.7  553 +CPCMT 
1 -.AA'J’ACPU  -.  221C*CPC?  5T»A3  - ,cu  47*  C P C f S T*  * A ) 

C 

XwOC  • XP-ODN/C  CS  PHT 

I F ( XPCO.LF.O.Pp.CR  .U.FO.e  ) CD  TO  64c 

I F ( X*CP.LE.1.0t  > XPf)0  * ,2666  - . 672  = * XP  or  +2 , 7 1 2 2 * XP-CC  * ♦ 2 
1 -1 .4’ P?*XPPf<*3 

I F ( XPCC.GT.1.06  ) XPCO  « C.F  5 45  + , i i 2? ♦ X *nC 
C 

640  CTMIU-F 

I F ( XPCC.GT. FPCPR  ) XPOO  * FPCRB 

pprr?  » i,  - (xp.ro  * rrs(sm  )♦*? 

ir-(  OPOD2.GT.O.O  ) CL  NOD  ■ CL1/5CU  (FPrD?) 
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c 

c 


in  KPRINT(l)  .CT.C  ) VFITF.  (fc>10C3)  * PDC  > C l Kf-O,  XC  P t ST,  C PCI  ,COS  PHI 
C-LKCP  CNJ*C»  > ■ CLHCD 
y **CF  4 N K C P ) » XvOD 

70C  I P ( CLI<LE<0<0  ) F E Tl'°  N 
1 F ( NACF.C-f.1C  ) RETURN 
ALPHA  « ALPHA  - 1. 

CP  TO  3SC 

^1000  FOP." AT (5X»10F  12.  A) 

'KOI  FPRKATdHl,  ////1C-X,  S7UFR t SSUR t CJSTFJFLTIfK  APT  SURFACE  ELCPES  F 

1C6  2-0  AIRFOIL  , FX»*AACH  **Ffc.4>  EX,«ALPHA  »*FA<3  /// 

1 10X,  * PV  E F P AFT-LF  «*,  f7.I  II 

2 12X,»X/C*,7X,*CPI  (UP PE®  ).«»2X,«CPI  t L CL  ? P ) * , A > , * P-C.P  I ♦ , 

3 5X,*0Z  /OX (LPPE» )*,2X,*t>Z/0x (LO'-ff )*,J.X,*CF (IPPER  >♦» 

a 2X»*cparuE»  j<*  Ax>»rcp*>  ox»«x/f*  //  ) 

1C02  F0PNAT(//10X»*CLI  *AF7.A>  1GX,*CMI  **F7.a,  ?GX,*Cp<H«l)  . ♦ , 

1 Ff.A,  /11X,  *CL  »*F7.A,  fcX,  *C MC/M  «♦ 

2 F7.A  / ) 

1003  FORMAT ( / 10X,  *A‘ACH  CRIT  »*F7.a,  1CX,  *CL  AT  HOC  »*F7.A,  1CX, 

1 * X-C  f r ? T **‘7.4,  1CX»*CP-CSF5T  **‘.c.4  / 

2 5GX,  <CPRINt  OF  EFFECTIVE  ISTPAF  = *F7.<.  //) 

FNC 


C 


< 


<ur\>*-*vC  ,'7'vn  ujpo>-*  >wmm  •jjro*-*  .**u)rv>»—  ujcvjk-*  t.orNjt-’  *\>»-»  ^mroR-* 


SUBROUTINE  SfCTtir,  TCC,  CID) 
CALCULATES  THICKNESS  A AT-  CAKPER 


Cn^KON  /eLKKP/  C L C ] 0 > > XP'C  P 1 10  ) > NHrP,  =A(32),  F ^ t 2 2 ) > 

1 Sf  (22),  ? 0 < 32  ) » S E 1 3 2 ) > XK22),  ? T ( 3 2 ) > ZS  C 3?  > 

1 , FCC 

COKKON  /INPUT/  A < ? 0 1 ) 

C r.  6 6 C N / P l K PR  T / KPSINT»50> 

CON-ON  /ELKOATl/  r(UH) 


PI  HENS  I C*  XS£rT(26),Y164A(26),CAHP.(26) 

0 1 KENSICN  Yifc?A(?6)*Ylt5At*6)#Y16  3(26),Y16  4(<t),YU5(26)» 

1 Yl^f (2fc)*CA^rJ (26) 

DINNSIN  A U ( ID#  Al(ll),  A2(ll),  A2(ll),  P 1 ( 1 1 ) , r2(ll),  P3(ll) 
r THEM  SI  PH  Ai{ 22),  6 6(22),  CC(22)»  CC  < 2 2 ) > X T T ( 2 2 ) 

CTHfNSICK  Y T ( 3 0 > » YC(30),  YT(3C) 

E C 01  VALENCE  (P<23)»AA(n)#(Q(45J,PMl)),(r<67),Cr<l)), 
(0(fiQ)*rp(in.  (cnm,xTTCi)), 

(A(?3)»PLE),  (A(c),nxSCCT), 

( A ( ?o<  ) » X T ( 1 ) ) , U(424  ),YC<1))>  (A(454),YT(1))» 
(A(24),TCCR),  (A{26),CLCR  ),  (.A  ( 26  > > T E CH) 


t-:,  , .033/2, 
04766,  .0<-496» 
ClOf- 


DATA 

OATA 

OATA 

CATA 


Y164  / 

Y166  / 

Y166  / 

Y 1 A3  A / 


v i # • v - i * ■»  r » v j i ^ t / • v « i / i <.  « v.  4 < r • v * w ‘ ».  9 

CG6.C4,  .Gj214,c.C  / 

.0,  .OOP 2,  .00964,  .0125,  .C1701,  . C2  3 4 2 , .C2F26,  .03221, 
G : 4 2 > » 0 4 2 0 2 , ,C4  6 39,  .C  4f  4 4 , .04  = p,  ,p6  c cj  , , Kt,  f c,  3 , 

04  = N , ,C4r?e, .0262, .03345, .02627, .C22fl, .Cl  7 22, 
f.  1 1 7/  . .rtfi  a?  1 . . ftr  f*  • b . r . r / 


0 H 7 0 * .00/7),  .'H  2 »C  .r  / 

.vj,  .0077  2,  » 0*  0 = 3 2 > « u i i 6 4 , .0)  574,  ,02177,  .02647,  .030 A, 
^20 6/,  .04)  43,  ,C4f.C2,.C4  7fc,.C4C?<1,  .044  = fc  , .CASE?, 
V.-461?,  .G4  5 2,.G414/,.G?6?2#.C316  6,  .OPS'/*  ,01457., 

C 1 : 0 5 , • u»,  P 1 , • U C 3 0 6 , u . 0 f 

.C».C0754,  

u353  , .0400 
0 4 f 6 1 , .04665 


1.. uC3o/,u.C  / 

.00=12, .0)141,. 0151 6, .C2CE 7, .025*6, .02 c17, 

1.. c4363, .C4( 36, .0AF22, .04=53, .05, .j4=71, 

..6  5,  .L4  3C2». 03767,. 0217/,. C24C'„  .01773, 

ClOf-4,  .0040C,C  .C  / 

.0,  .OC<-l/»  .00=62,  .Ci2r,  .03  7:7,  .C  ?<•)?,  .029)7  ,7^2?4, 
C?«S  .044,  .C4714,  .CA  = 12,  .04  = = ! , .04  = 6 6,  ,04f  37,  . 

0431  3 , .03=>42,  .02517,  .0204  4,  .025  4 7,  .0204,  .0  53  5,  .010  3. 


OATA  Y 1 64 A / 


OATA  Y165 A / 0 


OATA  C A B / 


OATA  C A HP  1 / 


» v w ^ I r U f ^ / v v v . v . . , 

• 0(;f  4)  »C.f  <H  ?j  / 

.0,  . v. C 7 6 5,  ,(  C = 2 6 , .01)83,  .01622,  .021/?,  .0265,  .0204, 
G’/5F,  .04)  27,  .044  = 3,  .0-474?,  ,C4<;  I?,.  C4  = ?e,  .04  = 62, 

04F  6 3,  .04432,  .04204,  .0204  = , .03422,  .V/2C1  2,  .32252, 

'■-1  77  3 , .013  * F,  .006  04,  .(  oh  21  / 

r.OC?'1)  ,C.CC34  6,C.  00602,  ( .C)C55,C  .C1P03, 

4??.»  0 . 0'2=-6  3 , f .C3403,C.f4(  T,C  ,0!  ?r7, 0.05  742, 

120, J .06204,0. 06571 , 0.166  51,1  .Ct ( 31,0.0/ iCP# 

274.0.  05  = 1 3,C.C54C 1,0. 0 4673,0.03607,0. 0245 2, 

??6»e.r  / 

.C025,  .-jC25,  .CG535  , .00  = 3,  .C15B,  .0212,  .C?f  65, 

65 . . 03=6, .04475, .34  66, ,0  515, .C535  5, .054 7r, .05  515, 
75  , .05  2 55,  .0  515,  ,o-4 f 6,  .04  47  5,  .02  = 6,  .02  36  5,  .02  5F 5, 
a . f' . n / 


DATA 


AO  / 
A 1 / 

*2  / 

A3  / 

Cl  / 

02  / 


5 

0 • 
0. 
-2 
-1 
5. 

0. 

0, 


-.27116, 

2*0.0 


03  / - 


♦ r.?06<5,  3 * C.14F45,  3 *0.5)4246  /, 

213327,  -.046  0 62,  -.  24  6 /67,  - . ? ) <VV : , 

412103,  0.1=2223,  0. 06:262,  -.64v,115,  _ ... 

.93145  4 , -.  5 4223  , C.i75224,  C .3*17,  C.14C2, 

. 6726  1 , -.  55  61/6,  -.16215,  l.llol,  2*0.0 
2291  7,  0.55=  245,  -.20/9  17,  -.22  1/2,  -.0-/2137, 
1.662=9,  .262206,  -.(06=1,  -1.0=401,  2*0.0 
2,  0.224,  0.215,  0.465,  0.7,  0.224,  C.315, 

<•65,  0,27*,  0.3:>5,  0.4  = 6 
<40625,  -.06657),  -.223323,  -.(64, 

<-•  / 6 5 7 1 , -.222333,  -.6*4.  -.06567),  -.???33, 

0703)  2,  - . 0 9 2 f 76,  -.C324C7,  C.  242,  1 .3125,  , 

0=3676 , -.032407,  0.292,  -.C=3/7E,  -.022407,  0.2=2/ 


-1.6696, 

; 3 5 a a 


/, 

/, 

/, 

/, 

-.664/, 


172 


n^oonoo 


NCP 

■ 31 

PQC 

» A 4 ( 10  ) + B P 1 1 0 > *TOC  +CC(IO)*TrCUOC  ♦ 

in 

s 

1 Tr  A,  6 FFFIfS 

A1PFPII 

IJ  « 1 

10 

s 

5 TC  7,  6 A SE»US 

ATP  FCJL 

IJ  ■ 1 

ir 

m 

6,  INPUT  AIFFCIL 

IJ  - 5 

IJ  « 3 

ID 

m 

9,  FICGNVfX 

I n 

9 

1C  TC  20,  A DIGIT 

AIRFCIN 

IJ  * A 

DD{ ID)*TGC**3 


IOC 


110 


200 


23  0 


IF<  ID. IE. 7 ) IJ  « 1 
IF  UC.f  C.S)  I J - 5 
IF  ( ID.FC  .9  ) I J * 2 
I F ( IO.GE.IO.ANC.  ID.LE.20  ) I J * A 
1 r ( IC.Ct.21  J IJ  ■ 5 

GO  TP  (2CC!,3CC,10C»9C0,?C0>  > IJ 

VP  J T E ( 6 > 2000 ) 

or  no  i « i,kcp 

7T(n  » ?.o»Tor*xum*(i.o  - yum) 

spin  * 2 . * tcc  * ti.-yuun 

7?<n  « o.o 

CCMHl'E 

»CC.  • 0.0 

GC  TO  9fc0 

I F ( jr.LF.A  > VtMF(f.»  2C03) 

I F ( ID.GT.A  ) V'PITF  (6,2C01) 

CC  22C  1 « liNCF 

y » xuu) 

I F ( IC.LF.A  ) GUI  L N T F ( X , 

TF(  TO.GT.A  ) CPU  LNTF  ( )'» 

Z?(J)  * ZS1  * ac 

i f ( ic.tc.i  ) rat  tMP<y» 

I f ( ID.FC. 2 ) CPU  INTMX, 

T c ( T0.F0.3  ) f A I l I MTPty, 

I F ( 1P.FC.A  ) CPU  l K TP  ( > , 

I F ( ID.FC. 5 ) CPU  LSTP(y» 

I F ( 10.FC.6  ) CPU  INT  p ( X » 

I P ( in.tc.7  ) CPU  LNTP(X, 


ZS1>  XSECT,  CPKFn  26,  A) 
ZS1,  XSECT,  CPfP,  26,  A) 


7T(  I), 
? T ( I ) » 
Z T ( I)  , 
ZTU), 
7TU  ), 
Fill). 
Z T ( I ) , 


ECT, 

Y ] 6 ? . 

26, 

A) 

XS 

f CT. 

Y 1 6 A, 

26, 

A) 

CCT, 

Y 1 6 6, 

26, 

A J 

x' 

rr  t. 

Yiet, 

26, 

A) 

XSfCT, 

Y 2 6 BA* 

26, 

A) 

xs 

FCT, 

Y 3 6 *A  » 

if  , 

A) 

xs 

ECT, 

Y 1 6 6 A , 

26, 

A) 

220 


300 


7T  ( I ) 

GO  TO  Qfc C 

CONTINUE 

GO  TO  960 


- Z T ( I ) * TOC/C.l 


700  ROC 


RLE 


POO 


ROC 


pc  eoo  i = i,  kcp 
v = xum 

CPU  UTP(V,  7 T 3 , YT,  YT » NXSECT,  A) 
CPU  L N T P ( y » 7SI.  XT,  YC,  NXSECT,  A) 
ZTU  ) * ZT1  * TPC/TfTS 
ZC  (I  ) ' ZS 1 »•  CLD/CLCR 
COM  IhUE 
cr  TC  960 


V 9 ITF  (6, 2GCA) 
HC  '10-9 


FOC 


* UC<  JAC)*TCC/.2)**2 


DC  95U  I -1,  NCR 

X ' xum 

I r- < y.GT.ynuo)  } go  to  9io 

7T  { I ) • AOUAC)  * SC»T(X>  + P 3 ( I PC  ) * y 4 4 2 ( T A r ) ♦ X*X 

i + p u p o ) * x*  + ? 

S3  ( I ) « 0.6  + P0UAP3/SOPT  (X)  + P 1 ( 1 AO)  42UP2(IAC)tX 

1 ♦ 3U  P 3 ( I P C ) * X * * 2 

GO  TO  9A0 


910 


X 

ZTU) 


(1.  - X) 

0.002  + ri(IAC)  * X 


♦ rv'UAC)  * x*y  ♦ r’dAO)  * 


x + * 


173 


SMI)  « -01(140)  -2,*  02 ( I 40 ) ♦ X -3.*  r3(I4D*X*X 

040  7 T < I ) • TPC/,2  ♦ 7T(T) 

SMI)  * TCC/.2  * *«(  J) 

CALL  LNTPtX#  ZS1#  XSECT#  CAKP1#  26#  4) 

ZS(I)  • 2 SI  * CLP 

05C  CONTINUE 


OfcC 


070 

'lGOG 

1 

1 

1C01 

1 CO  ? 
ICO  3 
1C04 

1 

2 

1005 

2 COO 
2C0 1 
2 CO  2 

2003 

2004 


IP(  KPRINT(l)  .FC.C  ) PFTl»K‘ 

V?TTE(fc#100',)  TfC#  CLO#  RCC 
OC  070  I « 1,  N rp 
1 N V * NCP  + 1-1 
ZU°  * 2 T ( J n V ' 4 2 S ( JNV ) 

Z L 0 * - 2 T ( I N V ) 4 ZS(INV) 

)>?  ITF(fcflC°5)  XU(INV)#  2TUMV)«  2S  { I N V ) > 2UP»  7L0 
CC  NT  1 NOE 

FCPNAT  ( /5X#  ♦XN'U  **  » FIG  .6#  3X  # * ZNl  * *#  F 1C  . t » 3X  # *XN  l **#R1C.6# 

3X#  *?  N L **  F I ( »6#  / 

rM„Ti5>.  ?)55f?T5  --nc.t  H I 

c 0 F I'i  A T ( 15.5X,5F10.C  ) 
trsi^tU  lGRfr.C  ) 

FORMAT ( 1CX#  ♦ T /C  r*F7.4>  1CX»*CAPPEP  x*F7.4,  1 OX# * l . E . » A C] US  *♦# 

4LPeE^JH5:u/f^0RT^>)THlCkf,FSS*,U4^a-  ?EP^76C^ 

Fro-.Amx#  5F15.5  ) 

F PR  N A T ( / lex#  *PTC0nFX  AIRFOIL  SECTION*  / ) 

FORwAT  t /1CX#  *6A  SEFIFf  AIRFOIL  SECTION  * /) 

FO»«AT(/  10X#  * SUcr c C e ITICAL  AIRFOIL  SECTION*  /) 

FOR«AT(  /10X,  * £ SFPJES  AIPFOU  SECTION*  /> 

FOPfAH  /1UX#  +4-0IGIT  4IRFCIL  SECTION*  /) 

° c T U ° N 


\ 
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non 


CCfePUTFS  CP  FOK  AK  IK1  FINITELY  SHEARED  VIHG 


t 

5 


i 

r 


c 


c 


c 


c 

c 

c 


c 

c 

c 


c 

c 


c 


c 

c 


r 


CUN  NON 


10 


20 


30 


cdsa 

S I f A 

cost 

SIM 

C1 
F 2 
F 3 
FA 
F t> 

FX 

col 


40  LI  C'2 
1 
2 
A 

A 

CPI 


/PLKf  C,V  CtMCMlO),  X NC  R 1 1 0 ) » NNCM  SA(  3?)»  SP(3?)» 

SC ( 32  ) » SO ( 3 2 ) > S E ( 2 2 ) ^ XUt.-2)>  7T<32)>  2St32) 
> PTC 

* cosm 

« SIMA) 

« CLStSVP) 

« SIM  SUP) 

- S M I V ) 

* set iv> 

- SC  < I V ) 

« sot  IV) 

* Sf(IV) 

* SCPTt  { 1.  - XLttV)  ) /XL  (I  VI) 

« 1 .0/ { 1 . 4(<F2  +S*  Fb ) /COSL  )**2  ) 

« OUL  * ( f CSA  * (1.  4 FI  * CPSl  4$*  F A 4 CCSL) 

+ S * SINA  4 <"CSl  * <i.  4 F2/CTSI  * FX  )*»2 
+ Cl‘L  * ( COSA  * MML  ♦ {FI  +S*  FA) 

+ 5*  SIM  * SIM  * (1.  + FE/CrSL)  4 FX  )4A? 

•*  t S3  ML  4 COSA  ) * 42  * U.  - CL>L) 

* 1.0  - UTC-V2 


CP  « CPI 

5 C CPIO  » <1.  - SIM  * S TNI  4 FI  ♦ FI  4 2.0  * FI 
1 /<i.  4 { F 2/CPSL ) **2  ) - SIM  * S I K L 

CPIO  « 1.0  -CPIO 
JP(  CPIC.CT ,0.0  ) CPIO  * 0.0 


* COSL) 


xm>  « >n  ♦ erst 

i f t xmlf.c. oi. op. xNN.ce.  1.0  ) return 

X K 2 * XK  * XM 

P.FTA  . = SCPTtl.  - XNN  * XNN ) 

S In  A « SIN A /BETA 

60  I F i 1 « tCOSL  * COSL  - CPTC  4 XW.N)  * XN? 

I F C TFST.CF.l.O  ) V P IT  F t fc> 100C  ) 

IF(  TFS1 .6c. 1.0  ) GO  TC  20C 


70  B 


FI 
FA 
F 3 

3 0 OUL 


« SCI TI1.0  - TEST) 

» Fl/R 
* 14/FETA 
= F3/R 

« 1.0/tl.  4 { t F2  4S  + F c ) / ( 3 * CCSL))*4?  ) 


90  U0V2  • DU l * ( CTSA  4 (1.  4 FI  4 CCSl  4S*  F4  + C(Sl) 

1 4 s 4 stna  4 cost  * (l.  4 F3/r,rsn  * fx  ) + *z 

2 4 OUL  * ( CTSA  4 SIM  4 (FI  4S4  FA) 

3 4 S * S 1 N A 4 SiN'L  * (1,  4 F?/C,rsi)  ♦ FX  )*42 

4 4 {SINL  * ri?SA)442  * (l.  - OLD 


100  CP  = -1.42FS7/XM2 


1 F ST  * 1 .0  4 0.2  * XN?  ♦ 
JF(  UST.LF.O.O  ) GC  TT  200 
CP  » -CP  4 ( TEST442,?  - 


(1.  - 

1.0  ) 


UCV2) 


200  CONTINUE 
RFTLPN 

1C0C  FOt  NAT  ( ] OX  * 4XUCHSN  AN-V  E s E P CCPRECTICN  f A C T C = P FA  CNF  S LIMT*  ) 
FNC 


5 


i 


t 

.1 


■i 
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OVERLAY (3»3 ) 
PROG  PAH  A E P C'A 


CONTROLS  CALLS  TO  AEPO  RfUTlSF  S FOP  HIS  CP/C  C ALCbt  ATTCN'S 


CC-Hf'ON  /INPUT/  A ( ?Op  1 ) 

COHf'ON  /CUTFIT/  CLTAP(ri),  T/f  Hf «» (?1 )» 

1 Cl,  CC»  CM,  ALPHA,  CON.  CPL  » CCP,  CCFP.  CLT*  COT> 

2 m-»  fk,  rGLCt>  r.HG,  CCNCL»  y/rvp,  cla,  alc» 

3 a,  PH  OH,  YH,  CHEO.A,  XCG,  FC>  F^CFF, 

3 C){3F)»ClOP»CLNAX,AFPK,ANAX>PANAX,rFl,flS* 

A ABlO>FHCPr->rKU.FHl<  #CCT>CLAH(P,Cl/Hl?iCrHCR» 

5 Cm?,Cr./TH,C2(.7)>>/CS>rrO>/2»  A3»Pl>CCHISC»C3(7)» 

6 AIT»SprEO»SVEEP»JP/'S»lTRIH,PNOFT> 

7 . TCD(5),CrSUa(7>5 )>CCFCr  (7,5) 


CPHMf.N  /CALC/  C(EO) 

CGHHCN  /eLKpPT/  K P P IN’T  ( 50  ) 


ECU  T VALENCE  ( NPN'l  $,  A (3  ) ),  ( S W P KC ,C ( 7 ) ) , ( TCC,  C ( 1 2 ) ) , (F0C,C(26)), 
1 ( 1 FT, A ( 10  ) ) 

PN'CFT  « APS(ALT)  ♦ 1C.C*4£ 

T?  (ICT.FC.21  SNOFT  « FN’OFT  / 12. 

I F ( ALT. LT, 0.0)  C-T  TC  FC 
CALL  A T 6 2 ( Al  T » PN'ONFT>  IFT) 
rkCFT  « PA.C-HFT  ♦ SPEED 
60  CC'NTINUF 


IF  (JPASS.6F.1)  OC  TO  300 


RNCFT1  * PNCFT/SPFEO 

CALL  LN  T P ( C ♦ 0,  PHCPO,  CLTAF,  TAPN-CP,  11,  ?) 

CALL  FDRG(1. 0,  RNCFT1) 

CCFF  « TC r ( 2 ) 4 TCO ( 3 ) 

CALL  v nc  c-  (1.0C0C1) 

CPU  * TCCIH 

CALL  VORC(l.Ol) 

CDV.2  * TCD(P) 

PL  = 5. * ( TCC  +2.*FCC)A*C.  3333  ♦C'S(SVPrC) 

X*'C  • l.-FHCRP 
CCPL1  * PL  * X N r*  * ? 

IF  (XHC.CT.0. 12)  COPtl  . 0.C1M*PI  4C . 2M PL  ♦ ( XHC- . 1 2 ) 

CCFl P * 2 . 4 PL  <XAT 

IF  (XHO.GT  .0.12)  CDFLP  « 0.?A  *PL 

ccwp  « (cor?  -ccumco.  -coplp 

CCVl  * COVl  -CCFF  -CPPL1 
XH  • l.-FHCRP 

A3  * (XH  * COUP  -2.4  Cm)/XM**3 
A2  * (3.*  CCH  - XH  * CCV  P ) /XM**2 


FHL1  » 0.<?5 

I F ( FHCPC.GT ,0.90  ) FHll  « FHCFP  4 ,C5 
I F ( FHL1.GT.1.C  ) FNL1  * 1.0 
FHL2  * FHLl  4 0,15 

P'lCF-T?  « PN'CFT  *CHPPC/SP£FC 
CALL  FDPG (FKCFP,RN0FT2) 

CALL  VOKG(FHCRO) 

C p H C a « 0,0 
CP  ICC  T * 1 » N P)'L  S 

concr  * concf.  4 cosuRn»i)4crsuP(i»?)4crsLiP(in)4cosL'pn^) 


176 


,*235£S 


CONTINUE 


PNGFT?  « FNCFT  *FPL?/SPEEP 
C&ll  FDFC(FK2»PNfFT2) 

CALI  W0«G(FNL?) 

coni  2 * c.o 

00  2C0  I *1»NFNLS 

COM2  - C0NL2  + CDSl'S  ( I j 1 ) +COSU0.  ( I > ? ) •♦CCSl'P  (I»3)*CDSUt  (I#*) 

CONTINUE 

CONTINUE  | 

CUL  CK1MSPEEC*  FNCFT#  COO)  | 

j i 

PNO  v 


177 


r-,r>o  oo  n o n o onononn 


.■■■.j.iypw 


lanat-ramnar. 


m 


SUBROUTINE  AT6?(HCT#RNCPT*1FT) 

CCFPUTES  RENOIOS  NO.  AS  CUF  f TTGN  C*  AlTTH-rf 


RNCFT  EOUALS  RN/FT  C-R  PETER  AT  H«1 

CONVERTS  HGT  TO  FFET  IF  TFT  » 1 
AIT  * HGT 

IF  (IFT.EC.lt  ALT  * ALT  ♦ 3.2B0PA 
X » 1.-B.67S2F-6  * ALT 

RNTFT  • (X  +0 • 3P3 1 2 )/l.  3*312  *71C0E7<t.  * X**3.2E*<; 

IF  (ALT. LE. 36089.)  GO  TC  1C 

X - (36089.-  ALT)  *4.FCtll8E-5 

RNCFT  « 2. 3C222°F6  * £/P(X) 

CONVEPT  RNCFT  TC  FN/NETEP  IF  I FT -1 
10  IF  { J CT  ,EC  .1 ) RNCFT  « P NCFT  * 3 . 2E0fi  A 

CONVERT  RNCFT  TC-  RN/INCH#  IF  I FT  ■ 2 

IF  (IFT.EC.2)  PNCFT  - RNCFT/12. 

C 

RETURN 
F ns  0 
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c 

c 

c 


SUPecUTINE  OMMSPEEP*  RNGFT,  CPKIN) 
CIMKII1  CP  AC- 


10 


COPf'ON/lNPUT/  A ( ? C P 1 > 

CCPfTN  /OUTFIT/  p<223) 

C"KvON  /CAtC/  C(EO) 

cr>»,r^  /pip n ati/  rmiu 

CCNKN  /PLKDA12/  F(90f>) 

Cl  PENSION  PGC(7,20)#TGTrr ( S > >CCBCD { 7#  5 ) 

ECIIVALFSCE  (AMn.SRCn,  ( A <1  ) .N  PCf  YS  ) . «A(2)»NMC)» 

1 (a < ??)> pnon , i ) ) , <p.(  iA<j>iTPTrcm  )* 

2 ( P ( If  O >CC?rc ( 1> 1 ) ) > {A(l7),tNISr)>  { P ( 1 3 5 ) , C CM  ISC ) 

NPCD  * NBCCYS  4 NKAC 
CC  10  I »1.N8C0 
COPCO ( I>  S ) ■ 0.0 


IE 


20 


2 E 


CALL  FCFC-(SPEEO>  PNCFT) 

C r K I 5 C « (TCTCP(1)+1PT(T(2)+TGTCD(3)  ) 
CALL  ADJUST  ( ? tO  t SPfED>  CONISC) 

TO  20  I * 1 > 7 
CD?  « C.O 

pat  • l. 

IF  (I  .GT.NBOC)  CP  TP  IE 
BASE  - ec.p.(i,ii> 

CALI  FCFC-<SPEFr>PASE>SPEF>CDB) 

PNC  * PCD ( !>  M 
IF  (PNC. EC  .0.0  RFC-  - I . 

creoo<i>E)  * cof  * pno 

BASE  CRAG 

CONTINUE 


♦ FKISC  ♦ C.01 


TCTCO ( 5 ) 

or  25  I ■ 

TOCDTE) 

CONTINUE 


CALL  WDFG(SPEEO) 


« 0.0 

l»Kfrn 

* C 0800 ( I#  5) 


♦ mens) 


COPIN 

coriv 


30  PFTLRN 
FNO 


TGTC0m+TPTrf'(2)4TOTCr  (3)+TCTfC(  AMTOTCr  (5) 
t CCNIN  4 CDNI5C 
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SUBROUTINE  FOR G (SPEED*  PNOFT ) 

THIS  SUBROUTINE  CALCULATES  FRICTION*  FOR  N*  AND  INTERFERENCE 

F ON NON  /INPUT / A ( 20° 1 ) 

COMMON  /CITPUT/  « 1 ( 1 ^ p ) > TCTCn ( 5 ) , 

V-r*  /C»LC/  c.in1""'5” 

COMMON  /BLKPRT /KPP  J NT  ( 50) 

DIMENSION  P 0 C ( 7 * ? 0 ) * ? UR ( 7*  30  ) 

EOU  I V/LeKE  |{fc37l#«rj'(J,l  }),  (ACiaji.MiMi,  i j j,  Rni(!HK), 

eOUTVAIFNCF  (C(23)*SV'fT)*(f{4])>TCC?)*(C(^2)/CBAF2)* 

1 ( C(  A3  ) » C L r f ) * ( C ( 4 5" ) * S W P N C S ) * .(1SWP*A(M) 

On  10  I »1*  3 
inTCD(I)  * 0.0 
or  5 J = 1 * 7 
COfiC.P(  J,  I)  -0.0 
CDSUM  J*  I ) * 0.0 
CONTINUE 

J2  = N E C F Y S 

K?  « NFfCYS  + NN  AC 

U 2 « NPN'US 

N2  * NPNUS  4NHT  +NVT 

EuOY  CC'NTF  IPUTICN  TO  FPICTIGN,  FCRN*  AND  INTERFERENCE  DRAG 

$F‘iu]:fs:ji'SeFYf.isiT’''sp£ec'Fn 

on  20  I =1  * K2 
xl  • erotiii) 

5LL  CFEC(PNfJFT.SFEEO*YL>0.*PCUGHK*  CDF) 

F R * B C 0 ( I * 1 A ) 

IF  (I.f-T.Jg)  K = 2 

avft  £Fr”ji',oB'  'pno>  °’0'  FF) 

DRAG  * CDF  * AkET/SKEF 

ii  i4f?j!?5!i^ica?  lit1  - ™cn,t' 

IF  (I .GT.l)  GG  TO  15 
RPPUS  = f N C F 7 * XI 

CAUL  I FACT ( 1*  PFFUS*  CPITM*  SPEED*  F]) 

OQECD (1,1)  « DRAG 
fDon0(I*2)  - DRAG  * { F F -1.) 

EmSUl”  * ”,F  ,FF  ,(FI 

SURFACE  CONTRIBUTION 

Ic  (N2.FC.0)  GO  TC  50 

CALCULATE  DRAG  FOR  SURFACES 

DO  AC  I *1**2 
XL  » SL‘R(I*2C) 

l*,  nSWP,F0.1.ANN,T,Fo.L2)  XL  * CBAR2 
CALL  CF EC (RN CFT* BREED* XL* C.  , PCUGHK*  COF) 

ICC  ■ 5UP (I,? ) 

TYP<I«VSUF?iii>K'n*I*E0'L2)  Tor  * T0CS 
f»«  * SUF(jJz) 

IP  MS'??Xir9s1,AVO*I*fO*<-2)  CAN  * CIOS 

CALL  F F A C T ( 3*  TOC*  TYP*  (AN*  SPEED*  C»ITN*  F F ) 

NTSVP  • SLR ( I * ) 

lb  I ISWF.EC.l.ANO.I .EO.l 2)  NTSWP  * SVPNCS 
IF  ( I.LE.L2)  10  » ? 

CALL  I F AC  T ( 10  * NTSWP,  CPITN*  SPEED*  FI) 
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AVET  « SI'S  ( I » 7 ) 

IF  nSWF.fC.l,/KD.!.FC.t2)  AWE  T » SWET 

OS  A C . crc  ♦ AWET/5PFF 

cost  s (1,1)  » OS  AG 

CDSUR (1,2)  « OP  AG  ♦(FP  -1.) 

CDS UR (1,3)  « Oft  AG  + FF  * ( F I -1.) 

CONTINUE 

DO  FO  I -1,3 
0(1  60  J «1»K2 

TOTCCII)  • CDF  r>C(  J,  I)  + TOTCD(I) 

DO  7(:  J • 1 , N' 2 

TPTCD(l)  - CDSU"  ( J,  I ) 4 TOTCOdl 

CONTINUE 

RETURN 

END 
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SUBROUTINE  CFEC(CNCFT#2RACK#CP/R»XTF#Rr-UCHK#  CF) 

THIS  SLFROUTIM  CALCULATES  THF  SKIN  FRICTICN  COEFFICIENT 
USING  THE  WHITE-CHRISTCPH  TECHMOUf. 


C 

c 

c 

f 

c 


c 

2 


I 


c 

c 

c 

c 

c 

c 

c 


CONHON  /BLKPRT / KPR  INTI5C) 

FTURB  { X ) • T*F**2*O.A30/(AICG10(PNL*X*T*+1.67*F))*«2,56 
FLAH(Y)  * 1.32F+CFCF Il/SCR T < Y*RN CF T ) 

FPRIH(X)  * C.42*T*F*F+< ULCC1CCRNL  * X* T * ♦ 1 . 67*F )) * * ( -2 . 56 ) 

1 -1.1117MI  ALOGICIPNL  *X*  T * * 1 . A 7 * F ) ) * * ( -3 . 5 fc  ) ) 

I F ( KFPTNT(19).CT.O  ) VRITF(f.,lcr-l>  PNrFT»7NACH#CBAP#XTR#ROUGHK 
I F ( CPAR.LE.C.C.OP.CPAR.GT.ICCOCr.)  GC  T C SCO 


7NACH2  « ZPACH  + 7MCH 
T *1.0/11.0+  0.176*?WACH2) 

F *1 ,G  + G.03916*7KACH2*T 
0XNP1  * C.O 

FNCC  « O.C 

RNL  « PNOFT 

P N 1 * RNl 

7 * PM  * C B A P * T*  ♦ 1 .67  *F 

IF  (7. IE. 1.0)  C-r  TG  600 
K *0 

I F ( POLGHK , L E . 0 . 0 ) GO  TO  6 


C^R  * T/I1.E9  + 1.62*ALCG1C(CBAR/PUL(8K) )**2.5 

CFS  = ITUPMCFAP) 

CFP  « FPSIP(CPAR)  - CFS 


‘i 


C * CFR  - CFS 

ic  <K  .EC.l.ANMC.I  F .0.0)  GC  TO 
if  ( a es ( o i .LE.o.ocom  c-r  tc  5 
RNL  * PM  *!!.+  0/C  FP) 

7 * CM  *C  P A p +T**i  ,67  + F 

IF  (Z.LE.1.0)  RN’L  * RNl  *0.1 

RNl  * PM 

K « K + 1 

IF  (K.GT.10)  GC  TC  A 

RNCP  * PM  * CF AR 

GO  TG  2 

WRITE (fc#10C0)  R NOF  T # PM#  CFR 


5 CONTINUE 

CFCFIl  • (l.C:  G.T?56*?MACH2)**(-.l?) 
TF  (XTP. It. 0.0)  GC  TG  100 
CXN  = 0.1  * X TP 


10  CP  ■ F o p i m ( n > n ) 

IF  (OP.FG.C.C-)  GO  TC  2C0 
DX  N F*  1 * DXN  - ( r X N * FTUfP(OXN)  - 

IF  ( DXNPl.lr .C.O)  DXNT1  = 0.5  * D >’N 
rx  ■ AFsirxNFi  - pxn) 

DY  v « O.yOC-I  +CBAP 

IF  (OX.LE  .OY)  GC  TO  20 

CXN  * CXN P 1 

GO  TC  10 


XTF  * FI AN( XTF ) )/HP 


20  XP  * CXNP1  + C P A p - XTR 

CF  * (XP/CBARJ.+  FTtRPlXP) 

CC  TC  300 


IOC  CF  * FTUPB(CfAP) 

GO  TO  300 


200  WRITE  ( 6 > 1 C 0 C ) PXN#  PNl 
CF  * 0.0 


300  RNL  « PNOFT 

CFPAR  • FTURP(CPAP) 

IF  ( KFRINTI  19)  .EC.O)  Gn  TG  AGO 

WRITE <fc#10C3)  CF#  CFBAP#  DXNP1#  CFCFIL#  PNL#  RNCC 


*,  ! 
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orsr> 


c 

c 

c 


c 

c 


c 

c 


c 


SUBROUTINE  F F AC T ( ) 0 *0  E OP»  TYP» CL D»  SP  FF D,  CP  I TP>  FF  ) 

THIS  SUBROUTINE  CALCULATES  FORM  FACTORS  FTR  F.ACH  CCPPCNEN'T. 

JTYP  « TYP 
FF  « 1.0 

IF  (SPEFC.GT.1.0)  GO  TO  «0 
GO  TO  ( 10#  20#  3 C ) 10 


io  liflLlVrrw  8ories  nc'1) 

gc  xol;S  + + 

„ MCtUt  IK.?) 

2G  Ffi  ■ GEOP 

Ff  ■ l.v,  + 0.35/FR 
GG  TO  <iC 


0 . 0C25+FR 


,A  VTNG  ANC  SURFACES  < 10-3 » 

30  TOC  ■ CFOh 
TC-r?«  TCCTTCC 

1 1 {{}?*:*$:  ll  ^ff  : i:0° : ki'm  : 

I'  (jtyp:^:  i^•^^,VKp•LE•^0,  ef  1 

CFLTAP  r SPEED  - OR  IT* 

IF  (DELTAP.GE .C.O)  7K  « 0.202 
(OFL TAH.LF.-.2)  7*  « o,12 
(DU  TAP,  FT  .-.2.  ANr.OCLTAf-.lT.O.C)  ZK 
♦ 2.1SAA*CEITAM*:>  -1  «??4  0*DELTAM4* 
*ZX*CLC/.A+1.AA*T0C  + 2.0»T0C2  41, 


IF 

IF 

l 

FF 


2.0*T0C2 

iCC.*inr2+T0C2 

1 « C * 1 • fcP * TOC  ♦ 3 • * TPC2 


• C.  202  + .ec72*r.£LTAH 


AC  FETURN 
END 
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t 


c 

c 

c 

c 

c 


c 


f. 


c 

c 


c 


c. 

c 


c 

c 


SUBROUTINE  IFACT<in»PARn'#CPIT>*#FPEED#Fn 

THIS  SOPPCUIINF  enrol  Mrs  INTERFERENCE  FACTORS  fdp  thf 
FUSFLAOE  AND  L I F T I C SURFACES. 

Olf'ENSICN  X M C H f 7 ) # p F F L‘  F ( 9 ) # IB®(62> 


DATA 

1 

1 

1 

1 

1 

1 

1 

1 

1 


XKACH  / 0.2E#O.A#0.t#C.7#0.E#0.f.e#0.c  /# 

RECUS  / 3.  0*10.  #?C'.»3U.#4.:.#6G.#FC.#2GC>.  >100000.  /# 
V'FF  / l.C6?#1.02#.979,.<i5‘#.R26  ,.<-OR#.667# 
l.(7t»?.C?E»,<.«;6#,«7  2#.^A?.,c?#,FfA» 
l.r,t6#1.0r«V#  I ,0?».<;<ifc..e<6#  .o‘?>  .ci# 

1 • 0 A 4 # i . 0 A 9 # l«t37#l.vl;#  ♦‘iff,  .SEE#  • 93  0 » 
0.‘>C2,].tl6#l.o32#i.015#1.0ia#.9C2#.97  3# 

0. c AC# C. 9=2 #1. Cl?# 1.014# 1,0]* #1.01 #1.007# 
0»°?f,#C«c*,A#i*l«ClF# 

0.O2A#0.97fc#iU.0lr»G.42A»G.976#5*l.C15  / 


FT  * 1.0 

IF  (SP:-E0.GT.1.C)  *0  TC  30 


C-n  TC  1 10#  20#  20#  AC  ) # ID 

FI'S  £ L AC-  5 COPPHATirN  FACTOF  (Fw°) 

10  PACK-  « PAP  AE’/IG.C  ♦ ♦£ 

>V.l  * C P I T P .1 

XP  * F P F E 0 
I F { XP.CT.XP1  ) XP  « XP1 

FT  • r l N T ( XP#  PAP1G#  XPACH#  REFUS#  VPp#  7#9,7#2#2> 

RVP  » FI 
GO  TC  30 

LIFTING  SURFACES 
20  A ■ C GS ( P AP A M ) 

Ic  (A.GE.C.75)  ®LF  * - . 99A6  , 5.35<P*A  - A . f 3 E9  *A  * A +1.2AE7+A**3 
IF  tA.CT.C.frf  .AND, A, LT. 0.75)  P LS  * . c96t  - . 752  * < .7  5-A  ) 

IF  (A.Lf .C.6SJ  PLF  * 0.9214 
F » SFEtO  - C.2S 
If  C.lT.t.v)  8-0.0 

PIS  - PIS  - .0015  ♦ « 1 E 1 C * F - ,2755*p*p  ♦ l.C677*R**3 
FI  = R L S * P * R 
IF  IIC.EC.3)  FT  . R LS 

3 C RETURN 

AC  RLQ  * 1.0 
PPTIRN 
END 


k 
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SUBROUTINE  VOPG ( FfACH) 

CONFUTES  TOTAL  AfPPLANE  WAVE  Dh  AG 

CPNMGK'/ INPUT/  A(30P1) 

CONNO)  /CLTPLT/  P<223) 
fOPPCK’  /filC/  C(5C) 

Cd-^ON  /FLKPAT1 / 0(1411) 

CCPWCN  /FLKCAT?/  f ( 90?  ) 

CP^PPW  /P.LKVPO/  W P 0 ( 9 ) 

ECUIVALENCt  ( AP, f { 29  ) ) , (Cir»C(13)),  ( TCP, C ( 2 ) ),  dVPLE»f(25)). 
I 5WFTe,c(en>  < rs> ac j ) ; (Mcmi'Ann, r,Z5n' 

\ A(4n>(KAAC»AJ2)),  (mMS^m), 

? ! rnJj  (SF>l,C(K)),  (SFl/f>CC<*))> 

* (SPCF>A(11))>  ( T(?C  W > C ( 12  ) >,  (TAP)  ,C  ( 3 C ) ) 

T0TC0( 4 ) • 0.0 
Cr  10  I « 1,7 
rDPGP(I,4)  « 0.0 
CCSUR ( I, 4 ) * C.O 

J2  ■ NBCCYS 

K2  * NPCDYS  4 NK-AC 

L 2 * KPMS 

M ■ NPNLS  +1 

M • FPI-LS  + »HT  + NVT 


IF(  FPACH.LE.1.0  ) RETURN 
PETA  * SCRT ( FK4CH**2  -1.) 

PCCY  COMP  IB  OT I ONS 

I F ( K2.EC.C  ) GO  tP  50 

DC  ?0  I -1,K2 
PA"X  « PP.C(1, 7) 

ft)5  dig11'” 

fl ft  : ^n;si:!i’s,'3-»i5?' 

ENG  « Por'd, 6) 

IF  (BGC-.FC.O.C-i  PK'O  * ] . C 

IF  (I.GT.J2)  R IK‘  » ?CFT(COrd,12)/3. 14159) 

CALL  CDVN(RA.WX,FLNS,PIF',  RETA,C0V1) 

CALL  fCV.T(‘’Ap>,tLFT,PtY,rr-lA,rCV2) 

CC60O(I,4)  » (Cnv-J  4CDV?)  4 PAPX/SREF  * PKT 
3 CONTINUE  * TCTCCm  + COf'OC(I,4) 

50  CONTI KOF 

WU’G  ANT  SL'PFAfF  CPA  TR  IPUTICN 


200  V P G ( 1 ) 
v P 0 ( 2 ) 


* spian/sfxv 

TAPP/(l.-CCnMl.-TAFP)) 


V.  P 0 ( 3 ) « 5 U P L F. 

V 0 0 ( 4 ) « S^PTE 
VP0 (5)  * FPACH 

V PO  ( F-  ) x 5FXWSPFF 

VP 0(7)  - T< 

v p r ( ? ) « rtr 
W P D ( 9 ) * TOCW 

CALL  CCWW(CDWl) 
crsi-p(i,4)  « cm 
T C T C 0 ( 4 ) « TOTCHM  + COU'l 


186 


250 


IF  (N2.fcC.t2)  EC  TO  300 
00  290  J • N? 

VPO(l)  - Slf ( J # 1Q  ) 

VP  C ( 2 ) * St'MJ>17) 
WPCO)  » 5-UF  ( J»  4 ) 

V P 0 ( ^ J • SUP  « J**1) 

V P 0 ( fc  ) « SUM  J»1S)/SREF 

V e T ( 7 ) * S L'c  ( J » 1 ) 

VPO(fc)  * SUP ( J»  2 ) 

VPO ( 9 ) • SLR ( J>  3 I 


290 


CALL  CCVV(CDVl) 

f •'Sis ( J»9 ) « crvi 

TOTCO(A)  * TCTCUM 
CONTINUE 


4 C0W1 


'300  CONTINUE 


OETLSN 

ENO 
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SUBPGUT IKE  CCVNt AN1  AX#  UNOS#  PIN#  PETA,  COW ) 
NOSE  WAVE  PRAC  IBCOY  COMPONENT) 


DIMENSION  XLP ( 7) # YPETA ( A ) # FCDW(7*A> 

TATA  X L T / l.»  2.,  3.,  A . > 6.>  f.»  12.  /# 

1 YP  FT  A / C.O,  C . ? 2 > O.A56,  0.6633  /> 

2 FCDW  / .166f:>.0617#.037?>,0267»«01cA».01Ae#.Ct-6  3# 

3 . 1 2? *•  .rej»  .on#  .c?ch.  .0177#  .cce?# 

A .?°E2#  .1(67#  • 1 C 6 7#  .0  66#  .0211#  .01  7f  # .006 1 # 

5 • 3<?  16#  .201C#  .1031#  #C6.  ?A#«C?C7#  .Cl  72#  . 0 C 7 «;  / 

crv  ■ c.o 

IM  APAX.LF.0.G1  GO  TO  50 
rNAX.SCFT (AKAX/C. 7853^8  ) 

Firr>«xiKCS/OKAX 
IF(PIS.GT.O.C)  GO  TO  AC 
I F ( Eirr.lE.0.0  ) GO  TO  50 

I F ( BETA. G 6. C.  66 32  ) GO  TQ  20 

10  COW  - DIM  (EL  00#  PET  A#  XID » YB  ETA#  FfOW#  7#A#7»  2#2) 

GO  TO  5C 

20  X * f ET  A /$C®  T { 1 , 4 ElOr  + *2) 

COW  » (1.2  4 1.15  4 X>/tl.  4 1.9  ♦ X)  /(l.  4 ELCD442) 

C-0  TO  50 

F 0°  A B CO  Y WITH  AN  CPFN  NOSE#  SUCH  A$  A KAffllE#  THF  C OT  p I BUT  T CN 
CF  THE  NCSE  TP  THf  TOTAL  BCOY  WAVE  PPAC  C C F ( F I C I F NT  IS  CCNOUTFr  AS 
INOICATFO  0 C L C V . (THE  EXPRESSIONS  ISED  TCP  n>^  ANT  CLCSEC  RPCY 
PCATTAIL  CONTRIBUTIONS  Of  KCT  RE0U1RE  THIS  El STI N CT I CN--5 E S COWT.) 

AO  SORTB  ■ SORT (PFTA) 

1P(  SOFT c • IT • 0. f 1 4 A ) SCFTP  • 0.P1AA 

COW  « ( (1.-2.4FIN/0HAX )/EtP0)*4l ,5/SOFTe 

5C  RETURN 
ENT 
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SUBROUTINE  CDVT  (*PA  X>  XLAF7>  RFX#  *»  E 7 A , CTW) 
60A77AIL  WAVE  TMG  (POOY  COMPONENT ) 


01  PEN’S  I ON  CBCP  ( 5 ) t C0VPT15) 
COW  » 0.0 

IF(  AMX.LF  .0.0)  P FTt'RN 
IF  (XLAFT  .IF.  O.COD1)  RFTUPN 
0PAX-SPR7  (AA‘AX/0. 765396  ) 
ELCC-XMF7/0PAX 
X-PFTA/FL0O 
Y ■ X » X 

Z*E10D*ELOC 


BCATTATL  WAVE  CPAC  IS  A FUN  TT  3 CF  6CATTA1L  FtAFNF^S  CATTC*  BASF 
riA^ETEP/PA  XIPL'V.  CIA^ETEP^  ANC  KAO  NIKPFP,  CGKPU7E  THF  FCA7T  AIL 
V-  A V F DRAG  C0FFFTCIEN7  AT  FTUR  0*00(1)  VALLES  ANT  JKT F R PCL A 7 f TT 

rpr-nuj-o.o 

CCWSTd)  * (1.165  -,51im  -,5372+Y  ♦ . 3°  6 A «X  * Y ) / 7 
Id  X.G7.1.C  ) CC-WBTU)  « G.515/X/7 


p',or(2)»o.A 

CDV  87  ( 2 ) * (1.067  -1.70MX  +l.fc63?*Y  -. 
I F ( X.GT.1.0  ) CPVBT(2)  - C.3352/X/7 

CPC0(3)*C.6 

CDVB  T { 3 ) « ( C.73A6  -1.A61MX  ♦1.5795  + Y 
I F ( X.GT.1.0  ) C 0 V B. 7 ( 3 ) = C.KEO/X/7 

CFC*p(A)«o.e 

CO.-iTO)  « (0.25*55  -.5008*X  +.5C2A+Y 
I F ( X.GT.1.0  ) CDVBT(A)  - C.CA9A/X/Z 

CrvPT’(5)«0.0 
0'»f'n(5)»l,0 
BCG0*2.C*FEX/0KAX  •• 

CALL  LNTP  (pr-f-O,  CCV,  C60D.  CDWBT*  5,  2) 


tf t*X*Y)/7 

-.65A2*X+Y)/Z 

2077*  X*Y ) /Z 


RETURN 

END 
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nnn  o onrwi 


SUBROUTINE  CnWKCDOSF) 

PP.  CCECUPE  FCP  WTNC  PRESSURE  OP  >G 

COMMON  /FUVPD/  »P>  7t  / M,  ZL E > ZTE/  ZM/  SUSP/  TYPE/  C Ah#  TOC 
COMMON  /BtKPRT/  K P « J N T ( £>  0 ) 

COMMON  /PLKCATl/  '-'ll) 

01  BEN  SION  AA  ( “ /)»  CCU?)/  CC(2?)/  XT(22) 

EQUIVALENCE  ( A* , 1 1 t l, . .'3  ) J / ( BP  O ) / P(  «i  ) ) » CCCC1)#D(67>  )> 

1 (00(1  )»C(BO  ) )/  (XT(l)#0(im  ) 

10  N » TYPE 

HOT  » CAN  * 0.055  /TOC 

XTCC«XT(N) 

T0C2-  TfC * *2 

RrOT«(AA<N)+PB(N)« TCC+CC (N)*TOC2+Dr(N)+TCC2*TrC)/TCC 
IF  (N.E0.8)  ROOT  * C »BF2 16+ (TOC  ) ** 1 . 606 /TCC 


C 

c 

c 

c 

c 


CALCULATION  CF  CUANTITIES  THAT  APE  FUNCTIONS  OF  CECMFTPY. 


17  7 K V «1.C 

T0C2  * TCC++2 
TTC13  « TCC++0. 33333333 
T I?  C 5 3 - TO 0**1.6666  + 67 
A P V » AK+TCC1? 

APW3  * TCC*AR+*3 
DENI  * 1.G/ARW4ARV3 
0 F N 2 ■ 2.0/APW3  + 1.0 

ZKT  * 1.+A.M.5-XT00*  (l.  + .5  + SCRT(PCrT)  ))**2 
1 -0*25  * SCPT(PPPT)  * (l.-XT0C)**2 

7KC  « 1.0  4 2.5*  HOT  + + 2 

7KB  « 1.065 
IP<  7KW.EC. 1.2  ) 7KP  • 1.0 
TR1  « 0.5/{1.4?lAM)**2 
TR2  =>  l./(1.47LAM+*2)**2 
ZLAM1  « i.  + TP2  * (TANMZLE) 

71  « TAM7LE)**2 

7?  * TAN(7TF)**2 

IF  (Z1.GE.Z2!  ZKP  - (CrS(Ztf) 

IF  (Z2.GT.21)  ZKP  » (C0S(7TE) 


4 TAM?Tt>)**2 


TC  J*  (21-72 ) ) / 7 1 A M 1 
TP  J * C 7£~? 1 ) ) /7LAM1 


7K  • (2.C/0FN1  + 3.33/CEN2)+ZKP 
X . AP  V*  Z K P 

IF (ARV.ee. 1.0)  >«SOPT( 7KP/ (1,7321* (l.C-ZKP) 41.0/ (ZKP+A FW**2) ) ) 

THIS  PC  LOOP  SOLVES  FOP  *APE*  PY  UEVTOMS  METHOD. 

CC  100  I - 1 > 10 

Y3  * X**  3 

XA  » X*X3 

F - ( 2 ,0*X  ) / (X  A v J. . 0 ) 4 (2,23  + X3)/(X3  + ?.C)  - 2K 

FP  • <2.0-6.0*XA)/( (XA4l,0)**2)  * ( 2 C . C * X * *2 ) / ( ( > 3 42  .0  ) * + 2 ) 

FFP  « F/FP 

IFEKPRINT (20J.EQ.2  .AND,  I.EC.l)  KRITEk/50) 
IF(KPRINT(20).E0.2)  WF ITf  <6#  95 ) 1/  X>  Ff  FP / FFP 
X * y-FFP 

IF  ( A P S ( F F P ) »L F ,0,0001 ) GO  TO  110 
TOO  CONTINUE 

110  IF  CK.  PRJN-T  (20)  ,E0,2  ) VPITE<fc/?6) 

I F (KPRIN’T  ( 2 v ) ,F0,?)  VRITF{f»55)  ZLE/  ZTE  / T TC2#  TCC13/  TCC  53/ 

1 ARW  / A R V 3#  DEM/  DEN2/  ZKT#  ZKC/  2 LABI/  ZKP 


PFTA2  * ZB  + * 2-1 ,0 
F F TA  « 5CcT (8ETA2) 
riV  « FETA /TOC? 

BFTAV  « FETA/TPC13 

+ E T A V2 • PFTAW**2 

C01  « 0.0 

COP  « C.C 

Cf  A • TCC2*(2.043.333/EZKW**?.&)  ) 
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(TA /PfT/ 

C 01 

COA/SOPT  tE,ETA2-TAN<Zm**?> 


■ZLAP)M2  ) 


C 

C 


? K L IN  » CCA/T TC? 

ir  (7 k .gt.  i.f»)  m 
7 1 st i * i.o/crsmn  ♦ 

IP  < Z K .GT.  TESTDCP2 
ARE  «X 

1 F ST  « A B S ( T AN"  ( 7 L F ) ) 

U?XP  » ( 1. ♦ 2 » ♦ 7L  >>'**0.33333  ) 

Ffi  « C .3  ♦ 0.7*ZKP**l F X P 
XN  » C « 5 * (i.4?LAA»<?  ♦ ( 2 

2 • rr-MHM  * r r < 1 2 T F ) 

IF(  PET*. <-T. TEST  ) X*  * C T I S T / P E T * ) * * 2 

130  7*L  « fCFT(TEST**2+l.C> 

/RE’  ■ APf**3 
? K*l«2*V'*1*2.f 

T1  « l./A®£  /(l.+  d.  + ZLAF)  * Fft  * * PTAV*  + (1.42KV)  I 
T2  * a P F 3 /I1.  + C.233??  * A F E 3 *FF7AV<*4)  . . 

T3  • 2./ARF3  / ( 1 . + ( . tbt-f  7+  2L'A*  ) *C-ETAV**(1.+?KV1)  *BP> 

TA  « 1 . / { 1 , + 3 . * APE  ♦ EETAV**A) 

2PEXP  « F B * * X N 
F B X *>  * F 6 * ♦ X H 

ri  » ZKF  * 7 K V * PCTAW  ♦ FeXM  +U1  + T?) 

n?  * ?<F  ♦ 2KW  } * PF1AV  * FPXP  4 (T 2 + T A ) 

Cf'W  * 2KT  * Z*V  * 2KT  * 2KP  < TCC53  * (^./Pl  43.33/T2) 

CC-VA  * C DV  / TFf  52 

cnosp-crw+sosR 

Ic  ( 2 M « (-  T .1.0)  COD«  COW+PIV 
AREls  « APE 
ARE  - AREWT0C13 

IF (K PRINT (20) .EC.?)  VF!TE(6>47) 

IF  (KFRIAT(2C>  ,FC.2H'c,TF(fc/AP)rJV»pcTA2>f?ETA)»»PETAV2>CCA»CPl>Crz* 

1 TEFT>XP#FB#2F’l>Tl#T2#T3»TA»r.  l>C?#f01i»Gf'0 

VIE  • 71 F ♦ 5 7 , ? R 5 6 

T7NKPE!f.nict.tT:Sr£.|iTe<£fa5.p|cj!|Kf,7tj!i,7Kj;wf,2Kr?vjefcoT> 

2 Fp.  HOT,  2 M L • 7W,  ape..  SCSF>  /FEW 


5?  J 


IF  (KFFINT  (20)  .GT.-O)  UP  I T f ( 1 1 6C0 ) 
JF  (KPP  1NT ( 20 ) » EO. 1 ) Vi’P  I TE  ( t .» 1 1 C ) 


ZP.Bf TAV.>r.7FFXP#CnvA.CCV> 
CDljCCP.CFFSP 


FI"PPAT(AHC 
FOP  NAT (lh 


J.5X. JHX>1AX.1HF,14X»?HFP.12X.3HFFP/) 
* 2 > ?X » 1 P4E  15.7) 


) w .fX»’H7Vl.l 7X.?u)li33X>?HT2.]?X.?F)3.1?tj 
JH  .2X.?HO).l?X»?Hn?»)?X»3uCCWj3iX>6FKLIMC) 


4 P FnPNAT<]l-C’>lDtE15.7  / (1X.1P5E15.7))  . . . r// 

pc  FflSMAT(///il6X.*.PF  WING  PRFSSIFF  CPA  G / / 
)lVx,17y  JAFGT  PAR/rTf  RS/UX/lf(:  GL  T PL  T FAR/AFTEP  5// 


ASPECT  RATIO 
Ttrffi  PATir  * 

LE  SWEEP  DEG  * 

TE  SWEEP  OEC-  * 

THICK  PATJf' 

AIFFGIL  TYPE,  * 

XT/C 

FO/T 

H/T 

KW  * 

SW/SPEF 

(//31X.PH  RFSUITS 


.F7.A.10X.12F 


.P7.4.1CV, I2P 


1 7 X » 1 9H 
17X, 19H 
17X.19H 
17;. 19M 
1 7 X > 1 °H 
17X.19H 
17X.19H 
1 7 X.  1<5H 
1 7 X . 1 o H 
17v. 19P 
. 1 7 X » 1 9 H 

60v,  FiPKAT^,  CCTHPr'  "'fPTH3r'  " CD/SB  E F 

flC  FORMAT ( 1H  > A (Ff.?/2X)»5(F7.5*2X)) 

R F TURN 

ENT 


KFl A^A 
KTHIfK 
K C A HF 
KlISTH 
ARV1G 


. F 7 . 4 . 10X.T  2h 
.FP.A.1CX.12F 
.F7.A.10X.12H 

.F3,C-»RA,;..rc,3/ry>12n 

»F7. A. 1C  X. 12H  T/C  f / 3 
.F7, A, 10X.12H  F 
.F7.9.10X.I2H  M 
»F7.Ai.lOX.12w  APF 
.F7.A/1CX.12H  ARFU 
//.7?H  HATH  P V I G 


« .^7,4/ 

* ,F7.4/ 

* / F 7 , 4 / 

- . F 7 . A / 

* # F 7 , A / 
T/C  1/3  * 

* ,P7.A/ 

« > F 7. * / 

» , F7.A/ 

- > P 7 . A / 

* . F 7 . A / ) 
EXP  FEXP 


. F 7‘.  4 / 


rpwiG 
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10 

2C 

1C00 

] 

30 


SUfiPCOTIKE  RDPG (SPEED#  AP,  <PEF»  CCP  ) 
e AS E DRAG 

CONt-C-S/ INPUT/  A ( 3CP 1 ) 

C^Hf-fN  /CUTPUT/  R(?22) 

/ C / L r / r(E01 

COPKPN  / F l KO AT  1 / P ( 1 * 1 1 ) 

COPNON  /PLK0AT2/  F (cqr) 
rrpPON  /81KPFT/  K P P IN  T ( &C  > 

COP  • 0.0 

1P(  Ap.lF.G,u  ) »FTIRK* 

IF(S°FeF.GE.l.C)  PC  TO  1C 

CpF  • (C.l  ♦ 0.1222  ♦ SPEEf**P)  * AP/SPFF 
GO  TO  2C 

COKTINL  F 

COP  . (1.42  / ( 3 • 1 ? * SPEED* SPEED)  ) * A8  /$PFF 
IF(  SPEED. LE. 1.6  ) CD*1  * 0.2222  * A R / S R G F 

CONTINUE 

IMKPPIA  T (15  ) ,f  O.C  ) GO  TO  30 
j»FITE(f#l  GOC ) S P E f P>  AEi  SPFF.  CDP. 

FOhvA  T ( 1CX*MACH  *+ F 10 . 7>  6X  * f- A S F AGFA  «*C1C-.7.5X*SPFF  ** 
L Fl?.i>6X*F AS6  CRAG  »*F10,7  / ) 

PETUFN 

END 


192 


CV£f'lAY(3>A) 

F R C C R A .**  AEROfi 

CONTROLS  CALLS  TO  AFRO  ROUTUFS  FC-R  VARYING  CL  CON  T) T ICNS 


CC ►PCS 
COMMON 


/INPUT/  A(?OPJ> 

/OUTPUT/  CLTAP(?1)»  T/PMCR(?1>, 

r i » cn,  or,  alpha,  rr*,  cri,  cdp,  cdro,  clt,  cot, 

pf.  fk,  met,  cpc;  met,  ytrv»F,  n/»  mc» 

C3  (<f  t.CLDf  «0LP6X  »tPFy,  AF  /y,rAHAy,CFL,CLf, 
AFLr>FKC»P,F^L  l.FNL?,C[C.rLANCR,Cl/H2*CCMCR, 
rrpi2>r,'ATF,#r2<7),xArj,rrc,pc,>A?>PL  *ri't*!SC»cSf 

CC/FT,rM5),A|  T,5F  = tr'»SVtt  F,  JPASS, 1 T» IN/  FNOFT, 
Tfrcs  )/CPf.uR(?>5)/CrrCP(?>s) 


COMMON  /CALC/  C ( 50 ) 

COMMON  /PI.KPRT/  K F ® 1 NT ( 50 ) 


FCLIVALFNCF  ( N PN L S > A ( 3 ) ) , ( CB>  C ( 1 1 ) ) # <FFIS#*(2E)J 


FRACH  • SPEED 


IF  (JPA'S.GT.O)  Gf  TO 
CfiATM  « CCMfP 
C/LL  CLV.DT(FKCPC) 
CIA*C&  ■ CLA 


20 


rr/TH  * CPML2 
CALI  CLUoT  C FKL2) 

CLAM?  • CLA 

CL  AM.CP  AND  C L A ML  2 ARE  CLA  VALLES  AT  KEY  MACH  N'OS  . L' S ^ P I A CDl 

CALCULATIONS 

Ic  «JPA«S.CT.l)  C-C  TO  30 
CALL  COmO.C,  F-'/CH,  C.DPO) 

COAT/'-  • t.O 
DO  25  I »1,NPNLS 

COATN  * COATM  A CC$UPU,lJ4CrSU0(I,2)4C''SlF<r,3)4Cr$l'P<T,4) 
CONTINUE 

CALL  CLVPTL FRACH) 

RE  » FNCFT  * r B 

I F ( RE.GT.A.OEA  ) P?  * A.OFfc 
PF  * RE/1.0 c6 


CALL  CIPRKCFMACH,  R = , RNOFT) 

CALL  Cril  (FPAC.M,  RNC-FT,  FK,  PELCl,  P R IF  F K , AKP,  AKP) 
CALL  CDFGIFMACH,  FK,  PElfl,  CDC) 

PALL  CPrvLFF'ACW,  CMO) 

CALL  AOJL'STU/0,  EPACH,  CMC) 


CALL  VPAC ( FM  A CH,  YACWP) 

30  CCMINlf 

CALL  CnCP(Pl#FMAfF,f.rRCl) 
CCP  » CCKCL  - CTRO 


CALI  C(?L2(FM/CH,  Cl,  FK,  PELCl,  PRTMEK,  AKD,  AKE,  CDL) 
CALL  ADJUST (0,5,  CL,  CCL) 


I F ( JFAfS.LF.l  ) CALL  AEPACFMACH,  CL,  ALP^A) 
CALL  AfPA] (c/ACU,  Cl,  ALPHA) 

Ic(  JPASS.GT.C  ) C-r  TC  5 C 
I F < BFl'S  .fcO.C.O  ) GC  TO  50 


CO  4C  J « 1,  21 
AN'C-  * I - 1 
C«U  AFTCTLANG,  nfO) 

ir-  ( r.rc.i  ) v-p n E (t,i coo) 

40  PplTE(t,lCCl)  A NG  * OCD 
50  call  AFTCOEALPHA,  C^AET) 
CALL  TDFC-(CCLT,OCm 


COM 

CO 


* cnr  + ere  4 copo 

« COM  4 coi  4 ctp  4 CCAFT 


COT 

CLT 


JPASS 


CC 

CL 


4 PCPT 
4 DCLT 


1COC  FflPMAT  ( 
1 

1001  FORMAT ( 
END 


III  10X»  *FUSLAGF  AFT-END  UPSWEtF  TFAC  ♦ II 
1C  *»  * V'l  HP  ANO  LF  * » 10*»  *mCC4  / ) 
IX*  EFIS.f  ) 


194 


f 

c 


c 

c 

c 


c 

1C0C 


H'BROl'TJNE  COOR  (CL»  XMACH,  COP) 

COMPUTE*  CS/G  PISE 

CONNON  /INPUT/  ^ ( 2 0 P 1 1 

c^nnc-n  /c/tr/  c < s o > 

COMMON  /OUTPUT/  CLTAP(21),  T/9NCM/1I#  P ( 71 ) » FNCFC/ FNL1 # FPL  2, 

Wk  /.t» .«./  SESiSH?oi'c“l'w'£xl“‘’'‘2"3’FU 


FPCRfi  « P ( 25 ) 

COB  • G.C 

COPO  * C.O 


C/LL  L ^ T p C C L > XMCP>  CLTAP,  TAPMCR/  11,  2) 

IF(  XMACF.fT.l.t  ) KETUPN 
XP  » XN/CH  - X PCR 

X*C  * XPACH  -TNCPP 

IF  (XP-C.CT.C.C)  COB  0 * A2  ♦XP0**2  4/3  *X/T«*3 

Jf(  XH.CT.0.0  ) COP  « PL  * XM*2 

If<  XM.CT.C.12  ) COS  » 0.014A4PL  ♦ G . 24*  PL  *(XN 

ccr.  * cok  + copo 


-.12) 


BP  turn 

ft F NAT ( 5X  , *COHP  CUPP*  /(IX/  7F15.5)) 
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I 


1 


SUBROUTINE  CLWBT (SPEED) 

CGFPUTES  VING-BCOY-TAIL  LIFT  CONTRIBUTION 


CGFNCN  /BliKCLA/  CLAII11) 

/INPUT/  A ( ? 0 f 1 ) 

CPF  ►'ON  /OITPUT/  r(5‘n,CLA*AlP,i»X(35>,aAV,a/R»ClAT>AA,PP,HSTAP> 
l CC# ABPEAK»CLCW#  e X X { 11 C ) 

COFFON  /CALC/  PP?,  CP*,  fP,  SPUN,  XfRTE, 
l SVPCCt  SVPFC»  «-WFTr»  f V,  x T » 5FXV » CBAP, 

> TPC  ,Cin*/«Xf ,fPX,CTX,XRX»>TX, 

» YPX,YTX,XP#Y',>XH»C»'?FAi'm  E,FPC, 

V SVPK,KPASS*AP,  T»',  YIX,SIX,ART,CFXF» 

5 SPXF, APPP, TXCC, TwIST, VI NC,XHT, TOC S, CF A P2, <*l PS , 

i C<  7) 

CIFENSICN  800(7,70 

EQUIVALENCE  C A ( 37 ) » 3CP ( 1 » 1 ) ) , (NMT,A(4>),  ( VPPCYS , A ( 1 ) ) , 

1 (TfCH,A(2t ) >,  (SREF,A(11)),  ( 1 TP  1 F, A ( 22  ) ) 


CLAT(l) 
CLAI  (2) 
CLA  I ( 3 ) 
CL  A ; (A) 
CLAI (3) 
IF  (TECH 
CLAI(t) 

C LA  T ( 7 1 
lc  (TECH 
C L A I ( e ) 
CLAI  <9) 
ip  (TECH 
CL  A T ( 10  I 
CLAKUI 


SPLAN 

TPC 

TP 

AC 

0.0 

C-T.O.J  Ct  A I { 5 ) ■ 0,0234 
CIO 

c c 

CT.'c.)  CLAK7)  » 0.04 
OQB 
0.0 

CT.O.)  CLAJ (9)  * 1.173762  * TPC 
• SV'PFC 
5REF 


CAIL  AEP2  ( SPE  FP>..  CLA) 

CLAV  « CLA 

CLAT  « 0.0 

AA  * C .0 
PP  « C.O 

cc  • o.c 

AFRFAK  « 90.0 
HFTAR  » 0.0 
CL  OH  • 0.0 

I F ( NHT.EC.C  ) CO  TP  30 
CALL  TAIL(SPEFO) 

JF  (NHT.EC.O.ANC/.JTRIP.  ,FC,C)  CALL  ELE  VC  N ( S F F F.P ) 

CLA3-  0.0 

IF  (NBCPYS.EO.O)  PP  TC-  50 

VP  « PCP( i,2) 

MB  • BCP(1,3) 

AP  « PPrU»7) 

A3  • F<AX.CROSS-Sf  CTIPN’AI  A PF  A Cc  PUSEIACf 
6 L * A ( 254  ) 

pin  » eron,^) 

PfPJF  « 3,:415°*?CPT( (VP**?  ♦ HE**2)/2.) 

R HP F « VS/HP4 prclf /SPPT(AP) 

AK1  * C.004°*?*PHFF  -.000379*  R'rlPF**?  * . 0CC01*  F HP  F*  ♦ 3 
Cl  AB  » AK1  * ( R 1/31  N)**  0.3233  ♦ A E-  / S P E F 

CLA  » CLAV  + CLAT  4 CLAP 

CALL  AALP(SPQEC) 

CALL  ADJUST  ( ?•,  C,  SPEET,  ALC) 

RETURN 

END 
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SUBROUTINE  TAILISPEED) 

COMPUTES  TAIL  FLOW  FIELD  AND  LIFT 

COrwON/IKFUT/  A(?0*1) 

FOFJ'ON’  /OLTPLT/  M?23) 

CCA  MON  /CALC/  CISC) 

C"MMCN  /Plt-'OATl/  M1U1) 
crMM>  /rtKPAi?/  f < Qce ) 
common  /eucla/  cunm 
CCNM.CN  /BINPRT/  KFPINT (SO) 

OIKtNSTrN  SUM7»3C)»  CPFl.’P  (7*5 ) » V SV  PL  (11 ) » Y*HK  ( 11 ) 

OIK-NSICK  XZCCI7)»Y5C  C*-)*?tL  (?#*)»  UrdlMFMll) 

FCUIVALfNCE  ( St  R ( 1 * 1)  * A ( 16  A ) >*  (CPSUP  (1 » 1 ) t * < 15*.  I)  » <(!!»C<29>)» 


1 

2 

"X 

9 

5 

6 
7 


(ClAWBCQfc))# 

( TP  * C(30))* 

( x p • c ( t i n * 

( A PH*  P t 101) >» 

( >HT»f (AO) )» 
(YOMU  ( 1 ) » P ( 12 ) ) 


(NPNLS* A(S)  )* 
(SVPCC*C(A)  )* 

(AM*r(°<;n> 

(Cfc*  A(12))» 
(XCFIf  *C(M  )* 
(CL*T#P(<JE))# 


(l  INC*C(3<;) )* 

(PM*? (IOC)  li 
( SR  EF  * A ( 11 ) ) * 
osvpi  m,r  (m, 
(ClC)*F(lC*n» 
(SPUK,r  m ) 


CATA 


1 

2 

3 

<. 

5 

6 
7 


xzrc/ 
ysc  / 
2 E L / 


XM 

YFN 


I T " r * r IHii'UillMUf  DMltll 

(0ErA#B(9*)J#  (CDATM*°(lt?)>> 

0<C*0«1>C<?*C«3*0.4*C.£*C«E  / * 

C * Op  C'  • 2 f 0 • A * 1 >0  if 
1.2».e?!:».7?C*.;>7C».Ae5*.31<i*.?CC» 

1.1#  .F7S*  .(6A».5A1* .A AO* ,3CO>.lc5» 

,?f ..7f?*.fcCS*.*tf • .*00* .?F1#,1C0# 

• ■31».AAP#.F22#.*36#.3tr».270#,lP7  it  „ „ , 

0,<'*C' .F»1.C#1,1#1.2»1.2»1.**1.E#1.P*?.C»2.2 
1.0*1. 0*1.0*  •S'j/.b**  .77*  .tfc  » «I  3*  .AN*  .*15*  .A 


/» 

/ 


+*  COVNWASH  IS  CALCULATED  ♦ 
K « NPNt  S ♦ 1 


APHT  » 
SFXMT  » 
SV.LMT  « 
HLi»  * 
CAMHT  ■ 
t-TCC  • 
HTLE  « 
HTY  * 
HTZ  • 
SVKHT* 
TIA'C  * 


SIP(K,1«J) 
SL'F  ( K#  1 P ) 
Sl'P  ( K , <t ) 
SUP ( K* I 7) 
S U c ( * » 2 ) 

SUS(K*3) 

SUP(K*11) 

SUP ( K * 12 ) 
SLP ( K#  13) 
SUP ( K # 22 ) 
5UR ( K* 1* ) 


10  7 K A • l./AR  -l./(l.  + AP  4 *1  .7  ) 

I F ( AR.LT.2.?  ) ZKA  ■ 0.37  - O.Cf*7  * A R 
ZKTR  • (10.  - 3.0  ♦ TR)/7.C 

PPOA  « 0.0 

XMAC  • XP  ♦ 0 . ?5  ♦ CB 

XLHT  « XM  - XMAC 

1 F ( XLH  .LE.C'.C  ) CO  TO  30 

Z*H  » (1.-C.5AHT7/P02)/(XLWT/PC2)A*G. 33332 


COSO 

20  DFDAO 


SCC  T ( CCS  ( S W'POC  ) ) 
*.<tA  * ( 7 K. A * ZKTR 


* ZKW  ♦ COSO  ) * * 1 . 1 <; 


C 

r 

c 


I F ( XPPIK'T(?l).EC.O  > CO  TO  21  , , 

WRJTE(6>  JCCc)  Cl  AW*  DPCAC*  CPATN*  HZ*  XM*  XB* 
1 HU*CF*ZKA,2K1F*7KH*CCSC 

21  CCKTTNUF. 

CALL  AT" 

CEOA 


lEP.?£?oU  4^1  A V /CL  Af-o 


*♦  DYNAMIC  PRESSURE  AT  THE  TAIL  *** 

30  CDC  • O.C 
rocc  ■ 0.0 

IF  (NPNLS.EO.C)  C-C  TO  SO 
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rtrtn  <-»  rtrt'j 


ppnnjr  -j 


COO  • COAT* 

re/  v^*.<XHT  “ Xf  CTE ) /CB 
Jc(  XOC.LE.O.O  ) CO  TO  50 

rr’pCrt  * WS  * SOPTCCOO  « 
CCCwO  • 2.52  * SCRKCDO); 

C-A**A  . ATAN(HT7/OPC*CB) 

CL  « CLAV4  AW 

E V • h ' * f A * r i y i d 


« C.6<?  4 SOPTCCOO  4 <XCC  ♦ 0.1511 

• 2.52  * SCPTICD0)/|i0C ♦ 0.3 > ’ 

‘ ATAN(HT7/OPC*CE) ) 

• c §0 

• CLAV4  AW 

• C.51‘ff  ♦ CL/A P 

l mtU#*'*””  * 'W  * ^W/57.31 


IF<  ZC7V.C6. l.C  ) GO  TO  50 
COCO  . CCOOO  * (C0S(1. 5707964  20IV))**Z 
5C  COO  • l,o  - feCO 

44  CARRY-OVER  FACTORS  ZKVB  AK'C  ZKBV  ARf  CCMPt/TED  444 
60  roeHT  . 2.0  4 HTT/ (2.0  4 HTV  ♦ SCR  T (APHT  4 SRXHT)  ) 

*♦  lJFT-CLRVf-SLCP£  CF  THE  PXPOSEO  SURFACE  IS  CCPPUTFC  444 

A 1 


ClAl(l) 
CLAK2) 
CL  A I ( 3 ) 

C l A I { A ) 
CLAH5) 
CLAI(t) 

CL  A T ( 7) 
flake  j 
CLAI(9) 
CLAI(IO) 


• SEXHT 

« HTCf 
« HTLA* 

• APHT 

• 0.0 

« CAMHT 

« 0.0 
- 0.0 
• 0.0 

» SWPCHT 


70  CALL  AFC2(SFEEP,  CLA) 

CL  OH  : CLA  4 ^rVC&8W)  4 (I*  * ^FOA)  ♦ ODC 

♦4  INDUCED  OF  AG  FACTOR  FPR  TAIL  15  CP'Pl'TfD  444 

PTAILLNIPR7SLPV'  RTSUB»  XSWPl»  WIN,  11,  ?) 

IF(  SPEEO.L^.C.c  > c-C  TP  ^0 

PK'rC  * * (CnS(SV'LHT)441,t)  4 (SPEED  - 0 Si 

ctai,  " 1 »0/ ( 3 . ♦ 7*0*  + 7ND*J2ND*)  0,S) 

"TAIL  « PTSUB  4 PNC*  ’ 


?C  * crlTf Ti 11  * * 0 • 01 7 A 5 nCXt  4 7KVP) 

HTK.  \ KTk{  4 HTkI1  31/'PHT  * 5RCp/SEVHT 

A*  « HTK  4 CL PH  4 CITH 
" • ♦ HTK  * Cl  AT  4 CIDH 

AOH  « ( l.-CEOM  * (WIN'C  - T INC ) 

IF  (XLHT.GE.O.O)  GP  TO  90 

CANAPD  INTERFERENCE  FACTOR  ON  WING  (EL)  IS  CPPPUTFD 

IfSsw : !Ef4?5i«;i 

CALL  LNTPtSPEEnf 'f*??XP,Ycf^  7><'7'  5,2) 

tL  • Ft  S 4 fm 
If  (EL.GT.l.C)  EL  * 1,0 
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CUV  • CLAW  - FI  * CUT 
[<50  CONTINUE 

IFC  KPRINT(21  ).FC.I  ) WPITUf*lCOC)  CUT#  SPEED#  CU#  Z*<Vfi# 

1 ZKfcV»  REDA#  COO#  CLDH#  AH»  PH#  ACH#  CEUO# 

2 PTSUe#RTAlL#HTKl#HTK2/HTK 

1000  FC*RMT(1CX#*TAII  l IFT  OUPP*  /(IX#  7FI5.5)  » 

END 


DOPHT  # 
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avjIi'WMM  U)fN)H  X*UA(\>*-* 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 


Sl'BRniTINF  F LEVGN ( S P 6 *i D I 

CTKPUTES  AERODYNAMIC  EFFECT  GF  ELEVENS  FC®  TAIUFSS  AIRCRAFT 

CDM^ON  /INPUT/  A 1 3 C P 1 ) 

CpwMC)  /CALC/  Cdv) 

COMMON  /GLTPUT/  P(??3) 

COMKCN  /CLKPI>T/  KPRINT(DO) 

COMMON  /f  LKDAT5  / SPAMfc)*  YTrP(A)*  FH«(fc*A)*  FKr(fc,A)* 
SP/N2(11)*YT  PP;  (f  ),  FK$M11*5>» 

SDAN2(fc)»  YTPF-UM,  FKMU**)* 

5 PAS  M5)*  Y P c 1 1 ( f ) * fKA(E#H* 

SPAN5<5)*  Y B F 1 2 (? )*  FRF(5»3) 

DIMENSION  XC  F ( 5 )*  YTOC ( 7 )*  7DCML(5*7) 

EQUIVALENCE  (CP#  M17C))t  ( P F I » A ( 171 ) ) * ( PFT*  A ( 1 7 2 ) ) » 
UP*C(2C))*  ( SVPMO *r ( 7) )*  («UP| E*C<25>  )* 

np<-»ct?on*  (swpcc>c(6))>  <fmcpo*b(iia))* 

( TPC# C 1 1?  ) I 

EQUIVALENCE  (C  LO f * B ( fc  8 ) ) * <AKC*P(fc9)),  <XCP*B<7t)) 

TATA  XfF  / O.C'E*  0.15*  0.25*  0.35*  O.A  /* 

Y1CC  / 0.03*  0.06,  0.0<3*  C.12*  C.15,  0.1B,  C.21  /* 

ZDCd  / - • 5 1 » - . 3 9*  - .2  c E * - . 2 A 1 * - . ? 2 C , -•  A 7C»-  . 3 f 6 * - . ? F r * 
-«23L»-»2?«  -.A3*-.3A7»-.?7c*-»23fc,-.t2* 

-.3°*-. 326*-. 271*-. 233*-. 22*  -.353»-.30C*-.2t2* 
-.231*-. 22*  -.32*-. 28A*-. 253*-, 229*-. 22* 
“•3C)*-»272*-*2A7*-»2?7»-»22  / 


X“C2  - 5PEFD  * CrS(FWPKC) 

IF  (SPEED.  GT.FfPPC-l  XMC2  « FMCRC  * C C S ( S V Pi-C  > 
BETA  * SCP T(  1 »-XE'C2**2 1 


CF 

CIO 


Acrsn  ,-?.*cf) 

2.M0F  4CIN'(0F)>  /57 . 3 


FLOC  « A p / ( 2 • + SCRm.4d.->MC2**2)MAR/CCMS«PI,C):  **2  )) 


fc*A*  6*2*2} 
fc » A*  6*  t*  2 ) 


7K?I  . OtS'TteFJ*  TPR,  SPAN,  YTPR*  F*F, 

7KBG  » OLNKBFO*  TPR*  SPAN*  YTPR*  FKF » 

ZKB  * ZKBG  - ZKPI 

ASC  * SCFT(1,  - ( 1 ,-CF ) **1 »f  1 ) 

7KC  « 1.  4 I , ?7  5 ♦ ( 1 .—A SC) + *2  /AR 

fL^E  IS  TUP  FLAP  LTFT  EFFECTIVENESS  PEP  DEG,  ELEVr.N 
CLCE  * 0.77  ♦ Cir  ♦ CLCC  * 7*C  ♦ 7K« 

SVPHL  « ATAMTAMSV'PLE)  - A./AR  * U,-TPP)/(1.4TPF)  t (l.-CF)  I 

7*01  » 0 L N T ( 6 F I , TPR*  SPAN*  YTPR*  F*r*  fc,  A*  6*  2*2) 

ZKCC  * PLMCFG,  TPR.*  SPAN*  YTPR*  FKC*  6*  A,  fc*  2*2) 

?K 0 « Z*CC  - 7 KO I 

FRCFJLE  DRAG  TERN  AKOP 

AKOP  « l./PEIA  ♦ C. , 00 168  * CF**2.3Z2  *COS(SVPHl)  *ZKO 


F ■ AR/6.2B3 

C » e>fg 

Z*A  « r.LNT(E*  PFdSFANA*  YBFI 1*  FR  A*  5* 
ZKF  « DINT ( D,  PFI*SFAN5*  YPFI2*FKF*  5* 

INDUCED  DRAG  TERM  A RD I 

AKC1  • ZM  *7*<F  A0.31F31  *CLCE*  + 2/AP 


J * 5* 
3*  5* 


A* 

2* 


AKC  « AR  0 P 4 A KG  I 
GCLP  * C.720P/ (CLPC  * 


7KB ) 


7 K s V I - DINT ( 3F  I , TPR,  SPAN2,  YTPp2*  F K 5 V * 11*  5*  11*  2*  2) 
7 X S V C = DLNTIRFO*  TPF,  SPAN2*  Y T F R 2 * FKSW,  11*  5*  11*  2*  2) 
2KSW  » 7KSWG  - 7KSVI 

7KMC-  « DLNT  (RFp,  TPP*  S F A N 3 * YT  PR  3 * F*M,  6*  A*  fc*  2*  2) 
7KM I * DLNT  (PFI,  TPR*  S P A N 3 * YT  PR  3*  FKM*  fc*  A*  fc*  2*  2) 
ZKM  * ZKMC  - Z KM  I 
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OCKt  • OLNT(CF»Tr-C>  XCF,YTPC>?DC*U  5>7#E»  ?»2 ) 
CCHCLP  » CC  K L * 7KH  ♦ 7KSW  5 *t#MrvPCC) 

XCP  ■ 0 . 2f  - DOCIP  *CCLP 


IF  (KPRJM(?1)  .C-T.C)  >»pnF<6>10j3>  CF»5vPlF»5WPCC#£VPKC#  AP» 

1 Z«a»7KC.»CiriF»7Kr»4KrP#2K*>7t,F,AKPl> 

2 Z*'V»7K,'»EVCK#XCP 

1000  FOBH4T(10Xi*FLEV0N  Fl’P*  P*  / (1  X $ 7F 1 5 . i )) 


C 


PFTL'PN 

END 
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SUBROUTINE  AALO(SPEFO) 

CALCULATES  ZERO  LIFT  ANGLE  CF  ATTACK 

CPKKGN/INPUT/  A(20el) 

CPNyCN  /OUTPUT/  R ( ? ? ? ) 

CPPNPN  /CALC/  C(5G) 

CPFUON  /BLKCAT1/  0 f 1 A 1 1 1 
COUPON  /PIKCAT?/  H«Oe) 

CGKPCN  /PLKF9T/  KPP1NT(5C) 

t OUIVALFNC6  (TWIST, C(2?)),  ( V J N'C ,C ( 39 >) > 


C 

c 

c 


AlPC 

ALCT 

ALOI 

CLAB 

SVPCCB 

TAU 

ZKBV 

ZKVB 

TINC 

XKCR 

XyNG 

TOCC 


(PCa»r (?) ), 
(CtP.,C(13>>, 
{ ALn*  r ( ten, 
(C3,3(9B) ), 


- C.C 
» C.O 

* c.o 
« o.c 

* 90.0 

* u.O 

* O.C 

» 0.0 

* A ( 2 75  4NPKS  J 


( TPC  > C ( 1?  )), 
( T A F > C ( ? 0 ) ) > 
(C],P(96)), 


(PJN'C.A  (275) )> 

<npcc»c  (6)  ), 

< f I A , B ( ‘ 9 ) ) , 

( C?  »c (97 ) ) » 


(NPNLS»A  (3)  )>  ( NhT/  A.(  A ) ) 


C .75 

SFEFO 


* OCS(SWPQC) 


« TCC/CCS(SVPCC) 


IF  C TCCC.LT.C.l  ) XPCP  ■ 0, 
LALCOC  , 5.6 

IP<  XPNC  .CT.XyCR  ) PALPrC 
IF(  OALCCC  ,LT .0.0  ) DALODC 


> ♦ 1.25  * (C.l  - TCCC) 

5.6  - 2A9.G  * ( > KNG  - XPCR)**2 
O.C 


C 

C 


ALCC 


• - OALPCC  * CLP 


200  IM  TUST.EO.C.O  ) C-0  TP  300 
I F ( SPEED.  C-T  .1,0  ) C-C  TO  3CC 
TAU  . TVIST 

FFTA  » SCPTU.O  - S0EED**2 ) 
svpcce  * c0. C 

IF  (BETA. GT. C.O)  SVPCCP  * AT  AM  TAN  ( SVPCC  ) /P  FTA  ) * 57.2957F 
TALC  • 0.09?  - C .000571  + SWPCCB  + U.576HTAP  -0 . 26  A 5*T  A P**? 
ALOT  « - OALC  ♦ TAU 

3C0  T c ( WJNr.EC.O.O.Afr.TJNC.FC.O.O  ) GP  TC  ACO 

7K°W  » .OCOA  ■*1,266  2*C0P  + .6  01  * * PC  p * * 2 ♦ . 1 ?63 ♦ DP" ♦♦ 3 

ZKLP  • 1.002F  + .711MCCB  + .A?  * TC  F * * ? - . ) 2 66* PC B * *3 

CLAP  « C3  + 7y°V/(ZKPW  + 2 KV  p ) * Cl 

ALCI  * (CLAB  * VINO  *C2  * ( W T K C -TINC)) /CL* 

1 ♦ ( P INC  -VTNC) 

AOO  ALQ  • ♦ ALHC  ♦ AlPT  ■*  ALOI 

IF?  KPRINT(13).6T.O  ) WRITE (6/ 1CCC)  ALT.  AlPC,  AlCT, 

1 All?!,  SPFFP,  TOC  * Cl<',  TH,  SVPCCP/  PCB/ 

2 TAP,  Cl,  C2>  C3/  CLAB,  ZKBV,  2 K V-  P / VINC/ 

, 3 TINT./  PINT 

'lCOC  FOPNAT (EX, *A  ALP  DUKP*, KX»*AIP  * + , F6 . 3, f X , * A l PC  **,F6.3, 

1 5X/* ALPT  »*,F6.3,5X, *ALOI  »*»Ff.3  /(5X,7F15.f)  > 

RPTLPN 
END 
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Sl!9«GUTINF  CLfiPK ($pfF0#  RE#  RKnFT) 
CALCULATES  LIFT  BFEAK  CL  AND  CLKAX 


COMMON 

CP-FMON 

COMMON 

COMMON 

COMMON 


4 

4 

* 

4 

$ 

! 

4 

4 

i 

4 

4 

$ 

4 


COMMON 


1 

4 

4 

4 

4 

4 

4 

4 

4 

4 


/IF Pl-T/  A(3C.fl) 

/CL'T°L  T / 9(223) 

/CALC/  C(fcO) 

/FLKPCT/  KPP  )KT( SO) 

^peKO.T./mn.ju.jfnMn.,,.  ^ 

FfT(l?)/ATSV(£)»T&F1(F)iFXArj(,fH)>FyACc(il6)# 

X<>PM5)#  Y F PA ( 5 ) » ?CCA(?)#  F«>DA(f#E#3)# 

yr  v-;<(6)  # YXFM6)#  Z1  ’CMhfl) . 

YprfclA)#  YFCfc(A)#  ?8D6<6)>  F P 061  ( A * A # 6 ) # 

FPC'  2 ( A,  A, 6 >#  FRL't3(  A » ^ > <r ) > 

X f K- 1 3 (10)#  * > T ^ 1 2 U>* ( 2f  UT  13()0»7)»  7 PUT  1 A ( 10# 7 > # 
K>viMc,  XIMS(fc)#  NYTFlf#  Y1M15(6)> 

FCUTISU#  5 )#  FRJTlfc(6#r># 

xi<6)#  Y 1 ( fc  ) # X=(8)#  YMF)#  *AP(f)#  YPC  L ( 5 ) # 
X'VP(7)»  Y T P ( A > > rEP25(?#A>#  F?P7(7>A)# 

XCL  C° ( 7 ) # YAKP(7) 

/BLKDAT2/XTO CF)»  YC1(6)#  YC? ( 1 1 » X SV ;P1 C A ) # Y A ( A ) # 

Y p ( A ) » > r Y C f ) > * M t A j » FTAp(f#A)»  C-  T A •*  ( F » A ) # 
XXCI><1?)#  YYfYU  )#  FCIMX<13#6>#  >XC2  '), 
YY-ACMf)»  H'CLFX  (9#f  )/XrYI  |c)#  YXMT  M* 

7C  1MAX  (c»  A ) # xr»Y2(P)>  YFOC(fc)#  ZrflM(B#6)» 

XSP  (*  ) \ f YCYA (A ) , FCA ( 9#  6 ) # XAP(F),  YCC(n)» 
FKVrFN(*#P)#  XAMC(1L)»  YcTCr(7)>  FFA(10#f)» 
XC2(()>Y/ST(c)>FrAM(f#c),XCT(6.  )#YM(f)#FDAF,2(t#5)# 

x>»;lm=)*  FfiKxx(9»o# 

XX ( 1 2 ) # X Y 1 7 ) # X F ( 12#  7 ) 


CIKENSIOK  X F 1 ( 7 ) » YF1<?)»  YF217) 
EOLIVALENCF  (Air,P(fc.O))>  <CLA#9<*9))# 


1 (f  i At  .f  (9E  ) ) # (CL  At # F (96  ) ># 

? (<V FCC#f (6)  ) , (Cl FP,P  ( 1 C 5 ) ># 

\ <f|.KAX»PClC7))»UPRK#F  HUE)  # 

A <OAMAX#9 C i 10) >#<APLO, 0(313))# 

5 # ( AF,C ( ?c)  )#  (TP#COC))# 

C A T A X F 1 / 5.C#  f.C#  fc.A?717#  fc*77sl 

2 Y F 2 / -.  jLe3#  -.0713#  -.055# 


(TCC»C(1?) ) » 
( C L 5 > P (112  ) )# 
(CIPC#P(  1C  6 ) )# 
UF/X#F(10C>  )# 
( S V.  c L t » C ( 2 5 ) ) # 
( f C r > C ( 2 fc  ) ) „ 

5,  t.c‘A2A#  7.3 


c.f  0, 

U75# 


C?# 

C .# 


0.036 
C ,C37 


(CLO#C< 13) )# 
(CP#C(11  ) )# 
(DCL#C(311))» 
(TF#A(1FA))» 
(CCFCL#A(27)) 

979A#  P.  /# 

S^O.OAfcB/ 


NJ  = T 5 

CALL  L N T P ( T R » Cl#  *T»#  YC1#  fc#A) 

cicns  - (ci+i.)  + rrstsvPLE) 

AR  IP  • A. /C.ICCS 
ARLC  * 3./C1C0S 

»f  (SPEf r.GF.1.0)  GO^TP  20 
r YO  * a r A p ( KT ) * TOC 
1 F ( OYO.IT.C.F  ) TYC  » 0.8 
I F ( 0YC.G1.2.A  ) C YO  * 2. A 

XWN  = SPFtP  * COS(SVPOC) 

I F ( XKN.LT.0.2  ) XPN  « 0.2 
y“NC  * xpn 

CLIK  = CLC/Crs  (SV’OCC  )*J2, 

I F ( XFN.GT.0 .7  ) /PNC  * G.7 

A c PKO  ' DL^TtnYO#.  XFfOfXrYC#  Y X F K # Z 1 f 0 E # 6»6»  6#  r^2) 
tc-RK  * ( APPKC  + (1?,C6-A,]*X6N)*CL1N  ) * CCS(S^PCC) 
APF.KLC  * 2./CCS(SVPlE) 

I p ( AFF  K ,LT,  ABCRLT  ) Af?PK  * A0FKLC 
CIPPO  » CLA  * APFR 

DCLPP  « C.C 

F PP  * 1 . E A 

I F ( XFN.0T.C.5  ) FPp 


lli  SESitlfWS.A  )'Fci.H%Fe‘J’(5cS.fi  T '.hfwcosw"""? 

CLPB  « CLFBO  + DCLPR 


2,9  * ( Y F N - 0.5) 


203 


c 

c 


c 

c 

20 


r 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DCLCRE  « 0.1226  - . CC71 A 4 $ PE  EC  -.12F57*SPFFD**2 

I P < NI.LE.9  ) ny  • A*AP(M)4TCC  ♦P"AP(KI)*CtC 
IM  NI.OT.Q  ) 0 Y « APAF(M)4TCC  4l.75*CLC 

Tc  ANS  • 0.0 

I F ( CY.CT.1.65  ) T c A K S ■ (CY  - 1.65)/. A 
IP(  DY.GE.2.C5  ) 1RA*$  » 1.0 
I F ( SWPlt.GF.0.67  ) T®ANS  « 0.0 

CLOP  « CLPB  + TP  A K S *(-.0376  2 AA l A4 < F F F 0 - .06 Pf ♦ S P E E T* * 2 

1 *.AlAA'*SPEtO**3  + PE  * rCLCPF  ) 

GO  TO  3C 


G|.C°  * 1.0 

PSTAC  « 10.0 

TF  (SVIPLf  .NF.O.O)  RFTAC  - SCPT  {‘SPEED**?  -1 . ) / A BS  ( TAN  ( SW?L  F)  1 
IF  (FCTAC.GT.1,0)  PC  TO  25 
CLSR1  « O.F-5 
GLSfi9  « 0 « P 5 

I F ( SWPLE.GT. 0.72*3  ) CAU  iPTPtSWPLF,  C L ? 0 1>  XI,  Yl,  fc,  A) 

T F ( SVPIE.PT. 0.366-5  ) CALL  LPTPLSV'FLE,  C L S.  F 9 » X®,  Y®,  P,  A) 
CALL  LMF(AA,  OCL A F » YAP/  YDCL , 5,  A) 

CLSB®  » CL  SB®  4 r-CLAfc 

CLSP  - CISP1  + <Cl$B9  - CLS*1)  * ( P-  E T A C - .1)  * 1.25 

CL  SB  * CLSB  4 0.5  » CIO 

CLFP  • CLSP 

CLOP  - CLSP 

CONTINL'F 


Sl.'PFFSCKJC  PAXJPUP  t I PT  COEFFICIENT 
CNAQAB  » CLAW  ■ ‘ 


4*4, 

1.) 


TP 

CLPAX 


l./SPFFC 

0.7722  4 0 . 33 PA  * <'** 


! 1 . It  A 6 * CP  + CP  -0.B215  ♦ GP**3 


C*1  « 1.  - Cf- AC  A P 

IF  < C P*  1 . L T .C.O  ) CPI  * 0.0 

C-LPAX  « C LP1A  X - C . OA  8 * CPI 

APAX  • 6P.5A29  -177.2327  ♦ CP.  4Atl.920A  *rP*OP 
1 -629.A522  4 0***  +3  +221  .A001  * OP**A 


A M A X * /MAX,  415.PC7A  -3  .COol  *CN  AQA  E -12 . F C73 *C N ACAB* * 2 

I F { CIPAX.OT.  1.25  5 CLPAX  • 1.25 
I f ( APA6.GT.5A.  5 ) APAX  ■ EA.5 

on  TO  300 
30  CONTINUE 

CLPAX  « C.C 

nv  « A.MAP(NI)  * TOC 

CALL  L NTP ( TR,  C2,  XT®  , YCZ,  t,  A) 


XV T « XTT(KI) 

I F ( XPT. IT. 0.3  ) X PT  « 0.3 
I F ( XPT.GT.C.A5)  XPT  * C.A5 
I F ( A R « t E , A®  L C ) GO  TO  200 

C1PAXB  » OLNT (n Y»  XPT,  X0Y1,  YXPT,  7C1PAX,  9,  *»  9,  2,2) 

C 

for  » ico.+Foc 

CC1MAX  = OLNT(DY,  FPC,  XCY2,  YF fC , Z0C1P,  t,  6,  ?,  2,2) 

I F ( XPT. GE. 0.25  ) CC1P-AX  « CLM  ( C Y,  F CC  , X r Y?  , YF  TC  , 7 20C  1 » » P , 6,  f , 2 » 2 ) 
C 

RK'CB  « ALDG1C(®6-0FT  * C8) 

CALL  LNTP  (PNC.  F,  f5,  xri,  y FI  * 7,  2) 

CALL  LNTP (FNCE,  F?,  XF1,  YF 2,  7,  2) 

CC1FN  « FI  4 F?  4 OY 
C 

C1PAX  « C1PAXB  + 0C1PAX  + 0C1RN 
C 

SWEEP  « SVPLE  * 57 • 295t 
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nno 


ICO 


CALL  LK’TPCSWEEP#  A Y » XS*P1#YA#  4»4) 
CALL  LNTP(SWEEF#  F Y#  XSWP1»YB»  4#4) 


DYM14  * OY  - 1.4 
TM  DYP14.LT.C.C  ) DYP14 
1 F ( DY.C-T.2.S  ) DYP14 


0.0 

1.1 


120 


Ct  Kori 
CLP  AX 

C? 

0 

DCLPAX 
CLMAX 

OAMAX 
AM  4 X 
CLS 
GC  TC  3GC 


AY  -PY 
CLMCC1 


* CYP14 

* C1KAX 


01NT(0Y,  'PEED#  XDY#  XP#  CTAP#  F#4#F#2#2) 
DLhtT  CC Y#  SPEED#  XCY#  XP#  CTAP#  E # 4#  Ft  2#2) 

C3  4 ( D-C 3 ) * SWF  EP/ftO» 

CLPAX  4 rCLPAX 


DINKSWEFP#  DY»  XSP#  YOYA#  FCA# 

Cl. MAX/CLAW  4 A L C 4DANAX 

CLA  ♦ (AFAX  - 2.ACAKAX  - ALC) 


t,ft#P#2#  2) 


LOW  ASPECT  PATIO  PETHOO 
200  CONTINUE 

ABETA  « A»/SCRT(J.  - SPEET  ♦ SPEED) 

XCLP  ■ APE  T A * C1C0S 

IF ( XPT.lt. G.35.0P, XCLP. CE, 2.0  ) CIPX0  * 
1 YYDY#  FCLPX#  12#  f# 

I F { XMT.GT. 0.35. AFD.XCLP.LT. 2. C ) CLPXP 
1 YYDY#  FCLPXX,  4,  f# 


rimxCLP#  r Y#  XXCIM# 

> "CLKTOCIP#  CY#  XXXCLP# 


2) 


C2TAN  « ( C 2 4 1.)  ♦ AP  * TAMSUPIE) 

PCLPX  « OLNT (CZTAN#  SPEFD#  XXC2#  Y Y M 4 C H # rDClMX#  Si 


5# 


2#  2 ) 


CLPAX  ■ CLMXb  4 CCLPX 
45 T * AP  * CCS C 5 W PL E ) 
A*AXB  « 25,0 
TF(  XCLP. CT. O.o  ) AMAXE  < 


1 


* (1.4  4*.  0 * TR*TR) 

45 . f 4 72  ■ 20. f 522AXCLM  +5.C674  + XCLM  + *2 
-0.427S*Xi ' »**3 
21.0 


JM  xftp.GT  .3.  ft  ) AM/YP  

I F ( C2TAK.lt. 4. ) D4  m = DINT'C?TAK#AST#  XC  2 # YA  S T#  F DA  P»  A#  0#  ( # 4#  2 ) 
I F ( C2TAN.C-T.4.5  ) DAP  ■ CL  NTCC  i TAN#  SP  l Ef  # X CT#  YM#  F T AP  2#  t # 5 » 6#  4#  2 ) 


APAX 


« APAXE  4 TAP 


200  CDNTIK'UE 

TAIL  CCPTRIPUTITN  TC  CIPAX 


DEL 

CLPAX 


CLAT  * 57.3  * SINCAPAX/57,3) 
CLPAY  4 CEL 


* CDS(AMAX/57.3)**2 


JC(  K PRINT (1M ,fO,l  ) V R 1 TF  ( ft#  ] Oi>  J ) CIPP»  CLDF#  APFKP#  AfR*# 

1 XMN,  CYC#  -CCt.PB,  TPAVS#  PETAC,  pY,  P],  C2#  ApAX# 

2 ARir#XPT»ClPAyp#CClPAX#CLPCCl»CCLPAX#DEL# 

3 XCLP,  CtMX'’#  F 2T  AN  # Fdf)(»  C l PA  y # 0C1PN#  RNCB 
,1000  FC*RPAT(10X#«CLBRK  CUPP4  /(IX#  7F15.5)  ) 

PE  TURN 
END 


A p l)  P # 
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t orv>*— • ►-»  ooD-govji^ijirsii-* 


SUPRCUTINE  COL  1 ( SFEFO#  »M?FT#  FK#  OfLCt#  FRJPEK#  AKD#  A KF) 

CTA-PUTES  CRAG  DUE  TO  LIFT  CrfcSTANTS 

compgn/jkput/  a < 3oei > 

CCPMrN  /CUPLT/  R ( 2 2 3 ) 

COPPOK  /C/IC/  C ( 5 0 ) 

CC^AT-S  /p  I KT  A T 1 / null) 

CnpPON  /P.IKOAT?/  f CAOR) 

COAPON  /BLKPPT/  KPPIKTC50) 

DIMENSION  CCLLVCl?)#  cCl'F  V (12)#  X?M°>,  YCPTl(C)#  YC°T?(Cl 
CIKE^SION  XSV’PLm)*  Y^U’IHI#  AA(22>#  FF(?<)»  C C Y ? ? ) * rC{2?># 

1 XSWC{7)#  YTp  ( A ) # FEP35C7.A),  FfF?C?.A)»  XC  L DB  ( 7 ) # YA  K P < 7 ) 

2 # SUF ( 7#  2C ) 

EQUIVAIFKCF  CD<l)#ySVPt<l)>#(i'n2).YPMMl))#(0(23)#AA(l))# 

<d<*5>#pf  n ) )#  cn(jt7>#cc  m )#  cccf  <n  #cr  u ) ># 

(0(13?:)»XfvP{n)»(Cn3?F)»Y-TP(3  ))# 
(D{13?J)»FfP7(l#l))#in(lS5?)#XClr»F(l))#(0(lAC5)# 
YAKB<l))»(C<13A2)#FEP35(i#l))* 

(An°A)#SUF(i#l))#  <StFF#A<?3))# 

(TCC$#r (41 ) )#  (C°A5?»C(A2))# 

(nr6»r(?))}  usvp.aco))# 

(SV>qc#C(6))#  (SWPI r > r < ? 5 5 )# 

(/P»C(2<?n>  ( Tk  # C C 30  ) ) # 

# c e r # p(6tn 


( TCC  F # A { 2 A ) ) # 
(Cntfl ,M27)># 
(Cir#CC13>)# 
lkPMf/M3l)> 

<R»e  (ti ) ) 


DATA  PCURV  / 

RCUPV  / 

DATA  XRK  / 
1 YDRT1  / 

? Y0»T2  / 


?•*  4 i » 6.#  10.#  20.#  30.#  AO.#  SO.#  6C«# 

to.#  ICC.#  130.#  200./. 

0.17»0.37#O.AF#C.t#0.73#0.7F2#C.Pl#C'.f  3#  0,6  A# 
0.°55#C.P65»C.P7A#C.e7A  / 

0.#  5.#  7.#  10.#  20,#  AO.#  ICC.#  300. » 60G.  /» 
.07. ,C7# ,C5# »C25#  5*0. C /# 

.175# .175#. 165# .12# ,o5# .03# .015# .CG5#C  .0  / 


SREF 

• A(in 

SPLAN 

■ CCA) 

C3  « 

CCll) 

CLP 

* ecsGi 

*£■7.2  057°  ♦ 

- cm*cm 

SFFF/SPLAN 

PC2X 

• CCl) 

FKL1 

• 0.0 

DC  L 1 

* 0.0 

FKL2 

* o.c 

DC  L2 

• 0.0 

CLPC 

» CLP 

CLP2 

• RC119) 

♦57.2957F  ♦ 

SRFF/SPLAN 

RPAR 

« 0.0 

CIO?  ■ BI10H 

CALI  LNTPCCLDS#  AKR.  XCLC3#  YAKE#  7#  2) 

FAK3  « 1 .2 A -,0A  +.RNPPT  * CP  ♦ l.CF-6 
I F ( FAKB.LT.1,0  ) FAKP  * 1.0 
AKB  • FAKE  * AK*  * S°EF/SPLAN 

PX  « -J.A1  ♦l.AA?#TP  -1.2t*7R**?  • 52  f *T  F * + 3 

CX  « 0,7125  -l.A<)7M»  +1.A76*TP**2  -.6SG9+TR++3 

E„0  * 1.0  + EX*  DCS  ♦ CX*  DCP**2 

FI* ACH  * SPEEO 

f m c p p » euim 

Ff-L  1 « R < 1 15 ) 

FPL  2 * P(11M 

IF  (FPACH.CT.FKCPr)  FPACH  « FACRT 

IFCSPEEC.GE.FPC'P-n.  AAO.SPF  ED.IT.FAL2)  CtPC  * B(11P)  ♦ 

1 57,2C57F.  * SFfF/SPLAN 

T F { SPEER*.  GT, 1.0  ) CALI  APCHFPFfO#  CLCPT) 

I F C SPEED.  LT.FPL2  ) CALL  ACCLCFPACH,  CLOFT) 

CD  ICC  I * 1#  KPMtS 

KI  • SUP(I#1) 

TC  » S U e ( I # * ) 

»t.ECC-  A A (HI ) +F.P(M)*TC  KC(M)*TC*TC  + DD ( PI ) * TC < *3 
IF  CM.EO.A)  PI  ETC  « PLCR  ♦ ( TC  / T OC  R ) ♦*  1 . 5 
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rT 


P L E « FtFOC  * «tiMT,20) 

TF(  ISV?.FC.C.CR.I.M.NPM<  ) CD  TC  <?o 

RLF.CC  • AA(NI)  ♦FP(M)*TOfS  * CC  t N ])  *TGCS  *♦  2 * t C ( K 1 ) * TCCS  ♦ ♦ 3 
T f • TCCS 

if  (m.fc.s)  rlfpc  * biff  *(tc/tocr>**i.s 

RLE  » FLECC  * CPAP2 
<50  CONTIA'l'E 

tMP  « RLE  * RNpFT/10.C**3 
CPTANS  « i.  -E.fll  * SLF(!,<») 

IF  (SLR(I,A).GT.0.3f  ) CTTANS  • l./TAMSL'R  ( 1,*)  ) 

0«EC-A  ■ RNLER  » CCTANJ  * SCFT(1.-(FKACH*  cr  $(SUR(J»d))**?.  ) 

CUL  LNTP(CKCOA,  FT,  PCUFV,  RCL’RV,  13,  2) 

CALL  IMPI'UPI  I, A),  PHIN»X$VPL,YRA‘IK»  11,2) 

IFdT.lT.MJN  ) KT  » RKJN 
COT  « 0.0 

CALI  INTP(FNIEP»  rPTl,  YPN,  YDPT1,C»2) 

CALL  LKTP<FNtEO>  CPT2,  YPN,  YnPT2,<5,?) 

IF(  TC.GT.C.OP  ) DPT  ■ CPU  * (TC  - C.C3)/0.C3 

IFf  TC.GT.0.G6  ) DPT  » DPT1  ♦ CRT 2 * (TC  - l.06)/C.Cfe 

PT  « PT  + CRT 

PI  • PT  +(0.824  -s T ) * ( CLD  ♦ C0KCU/C.6 

IF(PI.GT. 0.874  ) PI  • G.F74 

YW1  * SL'R  (1,12) 

Yu 2 - C ( 1 > 

I=(NPMS.FC.2.ACr.I.F0.1)  YW?  * Sl'R(2,12) 

REAP  « RPAR  + PI  *(YW2  -YU ) /BP2Y 
100  CONTINUE 

AT 

HEIR 


AO  * TP/CPMSWPLF) 

0.uA62‘AT  -P.C110I *AT**?  +C .GP 1 1 °7* AT** 3 
-0. 0C0L48  33 ♦ AT**  4 

P?AR  + OFLR 

((l.-oj/CLKG  +o/(;.lAlF<;*AF*Er)  ) * S»EF/SPLAN 


1 ,/(3.1 MfO  * A R * FK ) 
fLOPT  * ( 1 ,-E  F ) 
C.51E/SCPT(AR> 


+ SPFF/SPLAN- 


R 

FK 
FF 

LFL('L 
P S I M E K 

SVPC4  • SWPOC  * S7.29S7P 
I F ( SVPCA.GT.EG.O  ) SVFC*  • 60. 0 
C P 3 5 * PLNKSVPCA,  TF,  YSVP,  YT»,  c F F3  f , 7, 

EP7  «=  DLN'T  ( JN’Pf  4,  TO,  *SVP,  YTR , FFF7,  7, 

1 F ( AP.LF.3.5  ) CP  « 1.  - (1.-FP3?)  * AP/’.E- 
IF ( AP.GT.2.P  ) EP  » EP35  ' ‘ 


4,  7, 
4,  7, 


2,2) 

2,2) 


FPP 

AKD 


FP  * ( 1 . -OQF  **  2 ) 
1 ,/(3. 14159  ♦ A P 


PC  ■ R 
H • 1 . 1 

APTANS  * AP  * TAN’(RVPLF) 

!F(  APTANS. GT.?. 5 ) H - 1.1 
I F ( SPEED. GE. 1.0  ) PPI*EK  « 


( E P 7 - EP3I)*(AR-3.E)/3.5 
FPP)  * SRFF/SPLAN 


+ 0.1  MARTA >*S  - 3.5) 
H/Cl*  ♦ SRfF/SPLAN 


C 

C 


Ic  ( SPFEO.tE.FKI  2 ) C-r  TO  200 

7 n C K = 12.  * (CC0(«VPLF)**1.6)  * (SPF.  tC-FNCPO) 

F N' 0 A‘  « 1 . / C 1 . + Z NON  + 7N0K*  *2) 

R « Rfi  ♦ F^DH 

Fo  * ((l.-P)/riH  + F/  (3.14159*AF+FO  ) * SRFf/SPlAN 

CELCL  * CLCPT 

or  Tr  sco 

200  CALL  KGIMCLCB,  FK,  DELCL,  SPFFD,  FKL1,  CCtl) 

ir<  sprtr.ie .fei  1 ) c-n  tp  sod 

DRAG  PCLAR  IS  CALCULATED  BY  L I NF  AR  I N T F o FCL  A T I PN'  Pf  TWEFN  THE 
LIKITS  FKL1  AND  FKL2. 
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'I  i 11 1 1 ll'l  BIIIl  8 Plli  t 


50C 


ZNDH  • 12.  * (rn*  (SVPLF  > ♦ * 1 . 6 > + (FK12  - FpfSC) 

FN'OP  • l./(l.  4 ZNDP  4 ZNCt***?) 

SI  2 * FC  * F N OK 

FU2  ■ Hi. -FI?) /Cl  "i?  4 Rl  2 / (3.1*11594  AMfC  ) ) ♦ $RFF/$PIAN 
CALL  A0CUFK12#  PCL2) 

CALI  KC-tMC.SC*  Fl< » OFLCU  FKl  1,  FKll,  DCll) 
tk 

DELCL 

JH  KPPIK'1(22).EC.fl  ) RETURN 

V c I T E t fc»  1 OCO ) S PF  f D>  FP/CH,  Fk>  PtLfU  P F T ► T*<  ♦ AKT,  A K P » 
l ClfP»  CIP>  FHF#  S P l A N » FKFC>  cPll,  FN12, 

l Pl£»FKlfP>CMFC/>F.>R  PA  F>FT>CLC»CrN’Cl  #£F>AP>5VPC^> 

) FP>  f)OR>  £WPl£>  FKll»  OCll>  FKL?#  CC12>RPIN 


• FK 11  4 (FKl?-rKm*(FPFFP-FPll) /(FM2-FVU) 

• ocii  4 crci2-rni)4{SPnc-rr.u)/(FM2-rKii) 


icoo 


FOF’ATl'X, 

RETURN 

END 


♦COLl  CUPP  * / < IX#  7F15.5)  ) 


ono 


fUasri'Tm  ADCl ( SP  E EC>  CLCPT) 


POLAR  4X J S DISPLACEMENT 


crppos/jNm/  Acsofti) 
OVrOK  /CLTPLT/  *(2?3) 
C'ntMPN  /CALC/  C ( 50) 
COMMON  /RLKOATl/  fClAU) 

common  /eiKOAia/  e(°op) 


cokl 

SPLA* 

S&FF 

FOC 

etc 

SwPLE 

TECH 

CLCPT 


A ( 27 ) 
cm 
*(111 
C(?<  ) 
C ( 1 3 ) 
C ( 2 5 ) 
A(  2fc) 

0.0 


IF  (SPEED  .GE.  1.0)  Gn  IC  10 
Ic<  CLC.GT.G.G  ) CLCPT 
IF(  CDNCL  . GT.'J.O )f  LCPT 


IF  (TFCH.GT.C.)  Cl  OPT 
GO  TO  20 


-.CC1  416.939**00  -216.2fc97*FCC**2 
4l7M.35(2*rCC**2 
CLOPT  -.Ov.1  7 +1 .13?A*C0)  Cl 
-l.f  99P*Cf.NCt  •*?  4l.ytC5*C0NCL**3 
0.51951  ♦ CLC**0.75 


10  PFTAT  « 10. 

{ii}?’"iE{fs-s-i3:ii*i  sjfrosifsn 

iEfpP'i’clict-11  1 phcl  ■ c-°’ 


2.1  iLOPT  .■  CLCPT  * SPLAN/SPEF 
PE  TURN 
END 
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r>oo 


SUE#OUTJKE  KG!N(CLPB,  AKIN,DECLIN,$PEET»  * K CUT #CC LCUT 1 

COMPUTES  POUP  USING  Lf AST-SQfAPES  CUPVE  FIT 

COMMON  /PIKPPT/  KP° 1 NT ( 50) 

OIMENSICN  CU11),  CClUl),  3AI12),  PE(ll) 


OCL  • CL0B/1C.G 
CU1)  • 0.0 

DO  20  1 • 1,  11 

I F C I.NE.l  ) CUI)  « CUI-ll  4 DCL 
CLX  • CUD 

CALI  CDC-F  (CLX#  SPEED,  COP) 

I F ( I.EO.l  ) CDBC  ■ COR 
CCCR  • CC'.F  - CPPC 

AO  CDUI)  ■ AKIN  * (CUI)  - DfcCLIND*2  4 CCTP 
2C  CONTINUE 

CAll  LSPCUCL#  COL,  11,  2>  $A,  PE,  S1C-MA,  IT) 

AKCUT  « SAM) 

DC  LOUT  • -SM  2 ) / (2  .0  ♦ AKOUT  ) 

EPR  » SA ( 3 ) - AKOUT  ♦ PCLCUTM2 

I F<  APS(EP?).LT.0.001.CP.KPRINT(1A).EC.0  ) CC  TO  30 

WRITE  (E, lOuO  ) SPfcPC>FPR, AKOUT, DCICIT, 
i akin,  orruN,  ( nil),  mm,  i « 1,7  ) 

1COO  FORMAT  (iOX,4KGIN*  5X,*MACH  «♦  F E . 5 , ?X  *E  F P «* F & . 5, 2X, A FP 
1 IX, 1AF  P « 5 ) 

30  RETUPN 
ENC 


.5,/ 
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non  <•>  o n ooo  "V*  oo  o or>"> 


SUP.ROOTINF  C0L2(SDEEC*  CL,  AFROK,  OEtCL#  FPINFK,  AKO,  AKP,  CPU 

COKPl’Tf S DRAG  DUE  TO  LIFT 

CO^ON/ INPUT/  *(20*1) 

CCNNCN  /CLTPUT/  PP??) 

CCNNON  /CUC/  C(*y) 

CrNNCN  /PIK0AT1/  CtlMJI 
CONN  ON  /ELKCAT?/  EtCOP) 

CPF  NON  /61KPRT/  KFR  IF  T (50) 

CLPB  • P(105> 

CirP  ■ F(lUt) 


20  CONTINUE 

COL  • AEPCK  * (CL  - CFLCL  )**2 
Ic(  CL.LE.CLFB  ) GO  TO  SCO 

fiOtC  0UE  TO  LIFT  APQVF  PDIAP  PRMK 
COL  « COL  + PPINFK  ♦ (CL  - CLPP)»*2 
TF(  Cl.LE.CLCB  ) GO  TO  iCC 

DRAG  CUE  TC  LIFT  ABOVE  DRAG  BREAK  (CLOE) 

T F ( «PEEr  ,G?.1.0  J C*P  TC  410 

COPDB  * AERCK  ♦ (CLOP  - Dtl.  Cl  1**2  - / K 0 ♦ CL  OB  * *? 

1 + PR  INF*  ♦ (CLDP  - CL  FF  ) **2 

DCCB  « AKR  * (CL  - t: 0R)*4? 

rccp  « r.ccp  + o.os  ♦ soPT(rcrR) 
col  ■ copl’p  4 rcoe  + akd  * cl«*2 

400  IK  SPEFC.LT.  l.C  > GO  TO  500 
410  CONTINUE 

COL  « (AERO*  - PPINFK)  ♦ (CLPB  - DELCL)+*2 
1 4 PPINEK  ♦ (CL  - DFLCI  )**2 


500  CONTINUE 

I F ( KFPIFT(14).I  c.O  ) r-n  TO  50 

V. 0 1 TE  ( 6 / ICOo ) 'P  = FD,  Cl;  GCL/  AERPK,  DFLCL,  PP JNEK,  CLPB# 
1 CLOF;  A*D,  AKP 

KPPINT()4)  « K PP I NT ( 1 4 ) - 1 
50  CONTINUE 
RFTLPN 

1000  FGPNAT  (1CX,  *CCL2  0U“P*/(1X,  7F15.E  ) ) 

ESC 


211 


SUBROUTINE  AERA($PEFO,  ft,  ALPHA) 

CALCULATES  ANC*IE  C-E  ATTACK 

CPMf  ON / INPUT/  A (30F1 ) 

CCNMCS  /CLTPUT/  8 ( 223 ) 

COMMON  /C.AIC/  C ( 50 ) 

CGMMCN  /PIKP/T1/  r><  1A11  > 

ON  /FLKfAT?/  f(O0M 
CfNHCN  /PtKPRT/  K F R INT  ( 50  ) 


0TKFN5ICN  ClT/«*(lr»>  AT/P<13)»  SLP(?,3U)  „ p , , , , ,, 

OIf*F.N;  ICN  *A&(6),'C0({«  ) »FXVCFM  (f  #p  )»  X/Nf  UC  )»  YRT0C(7)»FF/  (1C>7)  , 

1 XX{1?),XY(7)»YF  (12,7),  X I Nl  3 < 1 C ) » Y I *>'  1 3 ( 7 J » ? PUT  12  ( 1 C , i)  * 

2 ZPl  T 1*.(  1 G , 7 ) 

E0L7  VAL  FNC  E ( C L A , P < f 9 ) ) , (ALP»P(TO))»  ( C l AW»  P ( °6  ) ) , 
i <CiPo>'Mia<-n»(riMAy»F(io7))>UKA*#p<:<<*)>> 

l (DAHAX,P(110)  ),  (Dr  1,6(111))#  (CtS,P(112))» 

t,  (ISWP#A(6))# 

5 (NPdS#  A(?)),  (TCC,C(12) ),  (TR,C(?0)>, 

6 (5UF(1,1),A(1P4)>,(YIX,C<31))»  (Yrx,C(44)), 

7 (5<.PlF,C(25n,  tS*°FC»C(7))#  (SVPTF,C(m»  , ... 

e (AH>ro3)),  up, c (?<•))>  (/Ft  r»p  (i:3)  )>  C5?gr*A<iiJ># 

9 ($EXW,Ctlon,  (SVPR#C<27> )>  (m,PUMJ 

EOUIVALFNCE  (XAP(n»f.  (AP4)),(YCr(l),F(*ccJ)»  (rKVCPMl»l)*6(A^3))> 

1 (XiKGm,E<54H  ),  (YRTCf  (1),  E (55f  ))#  (FFA(  1,1  >»E  < 5f3)  >, 

2 (yy(l)>F(aCt)),(XY(l),Mc]r))>(XHl,l),F(P?S))»  . 

?.  (XIM3Cl).D(lCi<7)),(YIM3(n,rnC73))>(ZCni3U,l)» 

4 PflODO)),  (ZfUTlMl,!),  0(1150)) 


C 

r 

c 


ir  » 51 p (1,1) 

S1.FEP  « SVPR  ♦ 57 . 2957P 
KP»T  « K PP I NT (17  ) 

CLV"1  « C.O 

10  ALPHA  « Cl  /CIA  + /IP 

I F ( SPEEr.r-T.l-0  ) FFTl»N 
I*  (NPMS.EC.l)  PC  TO  15 
IF  (U'P(1,A).IE.0.7)  CC  TO  15 
SWP  •«  SL'R(2»<i)  4 0 • OF 7 

Ic  (ISVP.fO.l)  SVT  * ?FPP  ♦ 0.087 
IF  (SUP  < 1 , 4 1 .iE.SVO)  GO  TO  15 
CP  TP  ZCC' 
i CONTINUE 

IF  ( AR.LE.ARLO  ) CC  TO  ICO 
20  CONTINUE 

I F ( KPPT.OT.O  ) WF I TE ( F , 1 000 ) Cl#  ALPHA,  AP,  APLC,  CIMAX,  CL5 , 
1 D/ NA  X>  CLA,  ALC 


I F ( CL.LE.CLS  ) C-C  TO  200 

HIGH  ASPECT  RATIO  LIFT  METHOD 

DA  - C.C 
CCL  « UMAX  - CL 5 
OA  * ((CL  - CL5)/DCl)**2  < 

30  ALPHA  « ALPHA  + OA 

IF  ( CL  .16  .CLM/X  > GP  TP  200 
ALFHA  « ALPHA  4 5.0 
I F ( ALPHA  .GT.PO.O  ) .ALPHA  * 90i 


*♦** 


TAMAX 


CP  TO  200 
IOC  COWTIdE 
IPV  ASPtCT 


RATIO  LIFT  METHOD 


♦ *♦*  + 


AS 

z 

Hr  p 
xcp 
DC  L r P 
CCLPA 
Cl  PA 
OCIO 


0.0 

2.  * CCS(SVPMC)  / A F 

( AHA  X - AS1/11A.6  ZAP  * 1.5  ♦ (TF  4 TF # ♦ ?)  / ( 1 . + TR 4 T P * ♦ ? ) 
1.J014  -1  ,°f  9*Hrn  43.  U 021  + H 06**2  -2  ,01.72  * HCa  ♦*  3 
(Z  4 S0»T(1,4  Z**2  ) )/ (XtP*?  * 5-  C c 7 ( l , 4(>rp+z  )**2)) 


(CCLEF  -1.) 
CLA  * 57,3 
- CLA  * ALC 


♦ ClAV  * 57,3 
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omon  o <->  o o o <->."»  o onn 


CLVM1  « CIMAX  - C L PA  * SIN(AMAX/57.3)  ♦ CGS ( AM AX / i 7 . 3 ) ♦ 4?  -DC10 
CLVM?  « ClVMl  - C7CI  PA  * SJMAMAX/57.3)  * C CS  ( AM  A X / 57 . 3 ) * *2 
I F ( CLVH.LE.0.0  ) DAMAX  • A»AX  - CLNAX/CIA  - ALC 
!F(  CLtMl.lt .0.0  ) Cl<  ■ CIA  * (A"AX  - 2.4DAMAX  - ALC) 

I F ( CLVM1.LE.C.0  ) GO  TC.  20 

CL V A « 0.0 
TOCR  • u.O 
APETA  • C.O 

IF  (SWPLE.tC.O.O)  GO  TO  112 

CO  « TAMSVFTf  ) /TAN(SWPLE) 

PFTA  » SCPT  (1.  - SPEFDM?) 

IF  (CC.NE.1.0)  ABFTA  * . /T AN  ( SUP L E ) /(l.-CC)  ♦RETA 

TOCfi  » TOC 

IF  ( 10.  EC. 9 ) 70CP  « C.O 


110 

112 


CLVGPM  « 
TS2 

FM  • 
CLVA 

CONTINUE 


OLN'KiPETA.  CC*  XAB*  YCO*  FKVCFM*  (*R»f*2*2) 
TAN(SVPLF)**? 

SORTMl.  + TS2)/(FETA*  + 2 4 TS2)  ) 

CLVCFM  ♦ FM  ♦ SFXV/SPEF 


Ilf 


ATA P ( 1 ) « 0.0 
09  12C  I * 1*  13 

I F ( I.CT.l  ) ATAB(I)  * ATAPU-1)  4 3.C 
ANG  • ATAB ( I )*  0.01745 

OCLP  * 0.0 

I F ( AT AP ( I ) , LE . A S ) GG  TO  115 
TIP  VORTEX  EFFECT 

HOB  « (ATAR(T)  -AS)/1H,6  /AR  *l.i  * (TP4TP*TP) /( 1 .4TR4TR*Tfi  ) 
XFP  « 1.001*  4i.0021+P0P<*?  -2 .0C72*HCB**3 

1F(  WCB.I t.G.G  ) XFP  » 1.0 

OCLtP  * (2  4$  CPT(1.4i*7.  ))/(XLP*7  4 SCPT(1.4  (XEP+7)**2>) 

OCLPA  . (OCLEP  -1.)  ♦ FLAW  ♦ 57.3 
OCLP  * CCLPA  * 5 HUANG) 

CONTINUE 

LEADING  EDGE  EFFECT  (PA) 

RA  » OLNT ( A N'G*  TOCR*  X A N G * YPTCC*  FPA*  1C*  7*  10*  2*2) 

VOPTEX  FREAKCCVN  EFFECT  ( F V L ) 

X « AR 

FV|  « 0.0 

I F ( X.LT.3.37  ) F VL  - CINT(X*ANG*  XX*  XY*  XF,  12,  7*  12*  4*2) 


CL V • (l.-RA)  * F VL  ♦ 
I F ( CLV.GT.CLVi>-?  ) CLV 


CLP 
CITAB(I) 


CLVA  ♦ SIN(ANG>«*2  * CGS(ANG) 
CLVM? 

CL  P A * $TN’(ANG)  ♦ C0S(ANG)**2 
OCLO  4 CLV  4 .f l P + DC L P 


I F ( KFPTNT(17).EP.?.ANr.T.EP.l  ) WR I TF ( f . 1C02 ) 

I F ( KPRJM(17).E0.2  ) V p I T F (6*  100  i ) CLTAMI)*  ATAB(I)*  R A* 

1 CLP*  CLV*  CCLP 

120  CONTINUE 

IF  ( KPRT.GT-.O  ) WRITE  (f>*!CC3)  CL*  ALPHA,  A5*  ARLC*  7*  HOP*  DfLPA, 


Cl R A , OCLO*  CLVM1*  CLVA 2*  TCCR*  CLVA,  RA*  F VL  * 
ANG 


125  I F ( CL VV1 ,LE .0.0  ) GO  TC  2C 

130  CALL  L N T P ( C l * AIPHA*  CLTAB*  ATAP*  13*  A) 

CO  TO  ?0G 

CALCULATES  ANGLE  C-F  ATTACK  AT  HIGH  LIFT  BY  MODIFIED 
V1NSTAN  METHOD. 


290  CONTINUE 
300  «ET4  « 
CETAN  . 
AA  » 
EN 


SCR  T ( 1 , - SPFFr**2) 
FETA  «TAN(SIR  (1*4)  ) 


DLNKPFTAN  , a.EEC*  X IM  3*  Y JN1  3 , 7 0I,T13  . H *7*10*?,?) 
CLNT(6FTAN-,S«FEP#  X INI  3*  Y IN  1 2 , ZCUT 1 A*  1C»7*1C»2*2) 
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aclarl  « cire/cu  *•  nr 

EFR*  « YIX/CYJX  + YCX) 

CLB  » AA  ♦ ACLARL1**^  * FPFK//RI  * CUV  * 57.2957P 
31C  I F ( CL.LE.CLOe  ) CO  T f 2CC 
CL  T « CLP  + CL  - CLOP 

ALPHA  « (CLT  *API/UA  *CLAW  *57.29578  *FPCK))+*(1./FN) 

I F C KPPT.GT.O  ) WPITF(6»1CGM  CL,  ALPHA,  AP,  A,  EN,  ACLARU, 

1 FPRK,  CLft,  CLPF  , CLAW 

200  CrNTIKUE 

I F ( ALPHA.LT. 6.0  ) GO  TC  205 
COLA  * CL  * IAN'  (ALP  HA/57. 296) 

I E ( CDLA.LT.CCL  ) COL  * COLA 
205  RETURN 

1 OJu  FORMAT  { 5X,  *AERA  PL'M®  HIC-H  ASPFCT  PATtC*  /(JX>7F15.J)  ) 

ICO  3 E09HAT(£>,  + AFSA  CUHP  LOV  ASPECT  RAT»G*  / < 1 X,  V F 15 . 5 > ) 

1Cc9  CPRUT  (<5X,  *AEPA  DUMP  CPANKED  VING*  /UX,?F15.£)  ) 

1001  F 0 R .v  a T ( 6 X , * VORTEX  LIFT*,  ftfl£.f) 

loC  ? P|7PHAT(///5X,*VCRTEX  LIFT*,  f X , * C L ♦ , 1 2X  » * A L R HA  ♦,  1 3 X , * P < , 13X, 
1 *CLP*»  J 1 X , *C  L V*,  1IX,  *f)CL  F*,  / ) 


ENTRY  A f F A 1 

90C  K P r T = KPP IHT (17 ) - 1 

ALPHA  = CL/CLA  + ALO 
I F ( SPEFF.CT.l.O  ) RFTL'PN 
IF ( AR.lt .ARl c .A AT  .CL VM1  .GT.0.0 
IF  (NFNLS.FC.l)  Gf.  TC  2C 
K ( F l R ( 1, 9 ) « l E *0.7)  C-0  TO  20 
IF  ( Sl'R  ( 1, 9 ) . 1 1 • SV  P)  C C TC  20 
GO  TC  310 


) GO  Tf  125 


C 

C 


ENO 
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SUBROUTINE  AFT(T(/LPHA»  COAFT) 

COMPUTE  DRAG  INCREMENT  DUE  TO  FUSELAGE  LPSVEEP 

COMMCK/IK'PUT/  A(30Pt) 

CrNMCN  /riTPUT/  »(;>??) 

CP^ON  /calc/  c ( ) 

CCMMPS  /PLKPAT1/  0(1*11) 

COMMON  /PLKDAT?/  f(SC'f) 


DIMENSION  XU)#  Y ( A ) # Z(fc#A) 
TATA 


’X 

Y 

Z 


/ “5.#  0.#  5,/  10.#  15»#  20.  /» 

/ 0.#  5.#  1 C . # 15.  /# 

/ 2+J.O#  .01#  .0*5#  .125,  ,?t#  (•.,  .C005#  .Cl?»  .C5* , 
•IH  °‘»'9C4|>*^T->‘CF5#  .172#  .Al#  C..#.01A,.023# 

.Of 5*  .215#  .53  / 


C 


C 

c 


V.  INC  « 0(39) 

B c US  * A(2E) 

Ae  * A (29) 

I F ( AR.EC.0.0  ) AE  - 1.0 
Pi^X  * A ( 79  ) 

SPFF  « A ( 1 1 ) 

C 0 * F T < 0.0 
!F{  PFL'S.EC.0.0  ) RETURN 
AFLS  • ALPHA  - V INC 
PMA  * P f US  - Aft'S 

TCD  • OLNT'PVA#  Ap  US# 
C T A c T ■ rco  + PAMX/SSEF 

RETURN 

FNO 


X # Y, Z # 6#  A# ( # A#?) 
♦ AB/1,5 


.1  A2» 
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oor> 


c 


c 

c 


5 

15 


C 


10 


SUPPCOTINE  CDRG ( SF  F EC»  AERCK,  DELCUCOC) 

CAUSER  ORAG 

COFF'CN  /INPUT  / A(30«l) 

CmON  /CALC/  C<50) 

PCUIVAIFK'CE  (AP>C(2<V)),  ( SE  V W C ( 10  ) )»  < S P L AN  » C ( 4 ) ) * 
CCC  .«  0.0 

APSREF  • AR  * SPIAK/SFEF 
F » l.o/<3.1<tl5<»*ARSREF^AEROK) 


COE  FI  - 1.0/(3. 1M59*AP?REF< tl.O-E ) ) 
Cf'F p2  « C.7  * SF > V /SR E F 
I F ( c.GE.l.U  1 GC  TO  15 
I F { SPEED. GF.l.C  ) GO  TP  5 
I F { COEFl.GT.COf F?  ) GC  TO  15 
CDC  * COE  F 1 * OEICL**? 

GC  TO  10 
CONTINUE 

CoC  » C0EF2  * PElf l **2 


RETURN 

END 


(SPEF>A(im 
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SUBROUTINE  CMOV*(SPFf.D#  CMP) 

COMPUTES  ZERO  LIFT  PITCHING  MOMENT  CF  V IFF 

CPMpN/INPfT/  A ( 30P1 ) 

COMMON  /CITPLT/  B ( 2 23  ) 

COMMON  /CALC/  C f 5 C ) 

COMMON  /PLKOAT1  / CUA11) 

COMMON  /ElKOAT?/  E(<50P) 

COMMON  / B LK  T/  NFPINT(SO) 

DIMENSION  CMC  A ( 2 0 ) > CAM{2)>  SEX(2>»  XPDA ( 5 ) , YP C A ( 5 ) , 2 RT A ( 3 ) > 

1 'PPA (S5»3) 

EQUIVALENCE  <F"r»,MllA)),  (T5#A(1FA)>*  ( A c ye  ,c<  1A  ) ) , 

1 <TCC#f  ()?))i  (TWIST*  C<2fc)>*  <SEXV*C<1C)  )» 

2 (CAdi  ),A  (Id  ) ),  (SEX(1)*A(3C3)  )* 

3 CNPM5»M2))#  (SwPCC>r«t))»  (06>,0<if  ) ),  (CTX,f  (If  ) )> 

A (XorAd)*Dd89))*(YBCA(l)*L(£QA))»{2P0A(l)*D(S9<»))* 

5 (FPCAd*l,l)*  f ( NC2  ) ) 

OATA  CMCA  / A*-C ,,‘cit  3*-C.21c>  -0.3*  O.O*  11<-C.2CE6  / 


IT 

CMOS 


TS 

c.o 


Pn  ICC  I ■ 1*  npk-is 
CM.CS  - CMOS  + C A M-  ( I ) * SEX<I> 
100  CONTINUE 


* CMC A (IP) 


CMC 
IP  ( 

CMOS 

CMOP. 


« C.O 

SPEE0.G6.1. 


) RETURN 
CMOS/SFXV 

a?  XR  * COSES VP0C)*+2/(APXR  +2.*C0S  (SWPCC)  ) * CMOS 


TRX  - CTX/CRX 
FSWOC  * SWPCC 

CALL  TLN'1  (ESvCC*APXp*Trx*  CMCCT*  XFDA,YPPA,  ?FPA,  FPCd  5j 
CMC T * CM, GOT  * TWIST 


5 ) 


FMACH  . - SPEED 

TH  FMACM.CT.PMfR  ) FMACH  « FMCO 

CMACH  = (1.  + «.c«TPC4FMACH**5)/SCPTIl.- 


(FMACH»CfS  CESWCC)  )**?) 


CM  0 
IF  C 


(CMDP  + CNPT)  + CMACH 


KPPINT(2S)«GT«0  ) WRITHdlOOO)  CM[,  CMrp.,  CMCT*  CMAfH, 

mts*  Anyp>  tpc*  t ^ i > fmac*  

C TX  > CPX,  SWPCC*  SF.XV*  CFCA(ID» 

TS*  < C A M (J ) * S E X d ) * I « 1*  F PK S ) 


T P X * CMTCT*  FMCR* 


,1CC0  FQRMATdX*  *CMOW  CUMP*/ (1X*7F15.S)  ) 

RETURN 

END 
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c 

c 

c 

c 


c 

c 

c 


c 


c 


c 


c 

c 

c. 

c 


c 


c 


c 


f 

c 

c 

c 

c 

c 


SUBRCL'TINF  VBAffSPfro,  XACP) 

COMPUTES  PITCHING  KC-NFNT  SLOPE  CP  WING 


COUPON  / 1 N P L T / A(*OFl> 

COPPON'  /OUTPUT/  p t a 23  » 

COPPON  /BLKPPT/  KFPINT(50) 

COPP-GN  / C / L C / BP?,  FOP,  CR,  SPLAN,  XCPTE, 

1 SWPCC>  CV.P  y.C,  S V F T t , SV'T,  SEXV»  CPAP, 

2 TOC/  CLD,ARXP»CFX,CTX,XLF ,>TX, 

3 YFX,YTX,XP,Ye,XH,C-MFCA,SV  Pt  F,  f CP, 

4 supp,kpaf5,ap,  tf,  yix>  qy  ,api,cbxf, 

5 5CXP,  APPP,OXCC,n  1ST,  VUC/yUT,  TOCS,  CPA  R2,CLDS, 

6 YCX,$VPf'CS,PAl,nACl,OA2,CAC2,rTOC 

DIMENSION  X D 3 ( P ) > YOf]8{fJ,  XPDGL<5),  YAQM  6 ) / FCP(5,6> 
niPFNSIOP  SUP (7*30) 

ECUIVAIUCE  (tUP(l>n»A(lPA))»  (NPUS, /(?>),  <XACS,B(130)) 

1 ,(ISVP,A(6))»  (NEPf YS»A (1 ) ) 

DATA  XDP  / 0.,  .05,  .1>  .15,  .2,  .3,  .4,  .5  /, 

1 YCOp  / 6 . > .1,  .154,  .14,  .214,  .266/  .3#  .23  / 

DATA  xnCPl  / 0.4,  .7,  J.C,  1. ? 5#  1.67  /, 

1 YACN  / 0.#  .4 , .B,  1.2,  l.d.  2.C  /, 

2 FCP  / .54,  . 5 25,  . 525,  . 516,  . 5,  . 4 2 > . 4 3d > . 4 5,  . 4d , . 4d t 

3 .35, .277, .4, .414, .425,  . 24 5, . 32 . . 35 5, . 375, . 3®4, 

4 .246, .2»5, .32# .345/ . 3* it  . ? 1 , ,2 5 , . 2 f f , . 31 5, . 34  / 


API 

TR1 

TW 

FPCpO 

FLN 

CLAB 

CLAV 

SV,  PL  g T 

SwPLFO 

SVPPCI 

5VPPCC 


» APXR 
« CTX/CRX 
At  3 6 4) 

P < 1 1 4 ) 

6 < 93 ) 

P (C7) 

8(96) 

• SUP (1/4 ) 

» SUP(?,4) 

► SLP ( 1,22  ) 
■ S U F ( 2 , 2 2 ) 


Ip(K’PMS.GT.n  l R 1 « A®I 
IF  (NPMS.GT.i)  TP  1 - 5 UP  (1,9)  /CRX 
IF  ( I SWF  .FQ.O)  GO  TO  20 
5 v.  P l PC  * S V PR 
SVPFifO  - SVPNCS 

20  CALL  ACCR(SPFFO,APl,5'vPLEI,SVPKCI,TPl,SIX,TCC,TW,FPCRO,XACR,CLAI, 
1 XACSW) 

X A f R X . XACP 

I F ( NPALS.EO.l  ) CC  TC-  ICO 
CRANKED  LING  PLANFORBS 
TR2  » CTX/CEXP 

CALL  ACCP(SPEEC,AFf>P,SWPt  EO,SV  P.VCC,TP?,  SCXF,TCC,TW,FKCFC, 


1 

XACRO  ■ 

1 

XACSO  « 
XACR  * 

1 

XACSW  * 

1 

IOC  XACWR  « 


XACRF,  CLA  CP,  XACSGP) 

XACRP  * CBXP/CRX  - YIXA0.54TAN(SVPLEP)/CRX 
♦ Yjv  * T AN ( SVPLF  J ) /F  F X 
XACSC'P  + CByP/CPX  +XACRC  - X AC  0 F < C F XP /C  P X 

(CLA I * SIX  * XACPX  + CLArp  4 SfXP  ♦ XACRC  )/ 
(CLA I + SIX  + CLACF  * SfXP) 


( C l A I * FIX  * XACPX  ♦ CLACP  * SOP  * 
( C l A I ♦ SIX  * CLACF  ♦ SDXF) 

XACP 


XAcsr  )/ 


WING- BODY  COf^TMT  JON 

XLC  IS  THE  X-STA,  OF  L.F.  OF  1NPCAFC  EXPCSED  V I K C-  FOCT 
CIA  • DOB  * 602  * 2. 
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c 

c 


c 

c 


c 

c 

r 


c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 


1 F t SPEER. 6E. 1.2  > CO  TO  200  , „ . 

SUBS  OK' I C C ALCUL  A T) ON  OF  XACN  (NOSE)  ANr  XACPW  (VINC  CAPRY-OVFF) 
XI  to  • PIN  4 l.fc  ♦(Xtf  - PLK  ) 

XACN  * -0.54  4 XLFO/CPX 

B/RP.  « /BXF  * SC»T{  l.-FMCRC1**?) 

I F ( SPEED. LT.FPCer  ) PAPE  « APXR  ♦ SCP T ( 1 .-5 PEED** 2 ) 

CALL  LNTFUTP#  FPCR#  XLH/YrOF,  P#4> 

XACBW  » 0.?5  + DXOC  * FDGE/CPX 


I F ( B AP E .GE  .4  . ) C-C  TO  1*5  0 

X 4C8V0  « C.125  ♦ ARXP  ♦ TAMSVPLEJ)  ♦ (1.4CTX/CRX) 


XACPW  » ( X ACBWO  - XACBW)  * (PAPE  -4.M  + 2/H.  4 XAC6W 
1<?C  XACr.V.1  ■ XACBW 
XACN1  * X ACN 


I F ( SPEEC.LE .FPfRC  ) GC  TO  290 


Sl'PFRJCMC  C A LOLL  A T ION  OF  XACN  a XACBW 
200  P.FTA  • 0.fct3?25 
X»CN  • 0. 

XACBW  « 0. 

IF  (K’eCOYS  .EC.O)  CO  TO  290 

I F ( SPEED. GT. 1.2  ) BETA  ■ S CR T ( S PEEO **?  -1.1 


AON  » < XL E - BLN1/BLN 

I F ( acn.lt.o.  ) atk  « 0. 

BOCL  * BETA  40IA  /BLN 

FIGURE  4.2.2.1-2TA  OATfCK  ***♦*♦♦ 

XCPCL  * OLNT ( BOOL  t AOK . XBDOL#  YAON#  FC  F#  2,?) 

XACN  * XL F /CP X * (XCPPl  -1.) 


B"CC  - FETA  ♦ 01A/CPX 

FCCT  « PETA  4 TAMSVPLEI) 

A 1 * U.5F45 

I F ( eCCT.CS.l.  ) A 1 S C.S9P5  ♦ G.0C214<ALCC(FCC,T) 

I F ( PCCT.LT.1.3.AKD.PCCT.GT.G.1)  A1  • C.S9F5  + 0 . CC f 07* A L 06 ( F COT  ) 


FIGURE  *.?•?, l-’-7A  DATCC-P  ******* 

XACBW  = 0.5  4 A l*PrCC  -.lw57*PCOC**2  4 .C172+POOC 4*3 
IF(  SPEED. GE. 1.2  ) CC  TC  290 


XACN  « X A C !<  1 4 (XACN  -XACN!)  4 (<PEFC-FPCRf?)/  (1 ,2-FNCPO) 
XACBW  » XAC8W14  (XACBW- XACEW1 ) * (SPEED- FKCFC)  / ( 1 .2-F*'CP0) 


290  CONTINUE 

F k °w  . 0.0004  41  .2A.6?*rOf  4, 601**00° **2  4 . l?63*DrP+*3 
FKVP  » 1 ,00  2 r 4.711t*orp  4,4  240rP»*E  -,l?f t*CrP44? 
CLAFW  . FKp.W  / ( F K F V 4 F K V E. ) 4 CLAW 
CLAWS  * FKV  8 / ( FK  BW  4 FKW’R)  * CLAW 


?0C  X AC  F « (XACN  * CLA6  4 XACUP  * CLAWP  4 XACPW  4 CLABW)/ 

1 ( C L A B 4 C L A . ) 

X ACS  « (XACN  * CLAP  4 X/CSV  * CLAW"  4 X/CTW  * ClARW)/ 

1 (CLAP  4 CLAW) 

I F ( XPPlK'T(]P),F-0.0  ) cr  TC  4C0 

WRITE  (6»  luGO)  XACF  t XACK.CLAP,  XACWf.CLAWP*  XAC»V#CLABW, 
1 XACS#  SPETC#  XL E 0#  FCOP 

400  R F Tl.'pN 

1000  FORMAT (5X»*WBAC  PUPP*  /(5X#6F15.5)  ) 

END 
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nooono^o 


SUBROUTINE.  AC C«(  SPEC",  AR,$VPLE»SVPNC»TP,SPLAN,TCC,TW,  FNCRO, 
1 XACR,  Cl AX,  XACS  ) 

COMPUTES  AEROCYNAMC  CENTER  DP  SINGLE  PANEL  VINC-S 


C 


C 


C 

C 

C 

C 

c 

c 

C 

r 


c 

c 

c 


XACR  IS  THE  A.C.  REFERENCED  TC  l.E.  OF  FXP.  F CGT  CHCRD 
CLAX  IS  TP£  L I ?T— CURVE  SLOPE  OF  EXP.  PLANFCRN 
XACS  IS  THE  A.C.  AT  STALL 

CCt'f'GN/INPUT/  A ( 30P 1 ) 

CORDON  /Cl  TPIT/  R < 2 2 3 > 

CORDON  /CALC / C < 50  > 

corrpn  /sl*cati/  rn*ni 

CONDON  /FLKCAT2/  E(9U8) 

CCRRGN  /OLKCLA/  X()l) 

CORDON  /P.IKPRT/  KPPINTC5C) 

OTRFNSKK  XPY(6),  YAC(M,  X V A i 13)#  V AL  ( 3 > 

DI  REN  SION  ?PTI12),ATSVMF>,T«>RT  (M,*-XAC  U?,t,t>, 

1 >30  6(4},YPDfU).?PD6(6),FPCfcl(4,4,t),Fe0t2(4»4,6), 

2 FRrt3(4,4,6),  A D.  A P ( ? 2 ) 

FCL'TVAL  EN'CE  ( POT  ( I ) , 0 ( 1 ?? ) ) , { A TSV  ( 1 ) , 0 (1  A 5 ) ),  < TpF  T ( 1 > , C U E 1 ) ) , 

1 <mcn»i»j  >»n«if7))/  (xfp#  i i ) # r 172S) ), 

2 (YP0M1  ),P(??$)  ),  {7sr6(l)#r  (7?3)  ),  IFRCf]  (1,1,1  >,D(739) 

3 ) > ( c n C 6?  ( 1, 1*1 1,0(835 ) ) , (F?Cfr3(l,l,l  ) , C ( E 3 1 ) ) , 

4 (AMPU  ),D(1C30)) 


DATA  X VAL  / V.O,  0,2.  0.5  / 

CATA  XOY  / .4,  .(•,  .8,  1.2,  1.6 

1 YAC  / .67, .585* . 5 5> . 5 5 5/ . 59, . fcl 

NT  - TW 

CY  - AM*P  (NI ) * TCC 

ARLG  « 8(113) 


56  • 2. 

I F ( SPEED. EC. 1.0  ) C-O  TO  20 
IM  S°EF0.GT.1.0  ) GO  TC  10 


/, 

/ 


TANG6  * TAMSVPLE  ) /SCR T ( 1 .-SPEED* *? ) 
r r ( TANGE  ,l.s  .1.0  ) 5°  • 7AN06 
IM  TANGE .GT.l.C  ) SP  « 2.  - l./TANOB 
GO  TO  20 

1C  TANOB  * TAMS  VPLF)/SCR7(SP£E  0**2  -1.) 

IP(  TAK8.LE.1.  ) Sfi  » 4.-TANPP 
I F ( TANfP.C-T.  1.  ) S«  * 2.  + 1. /TANOB 

20  AFTSV  * AR  + TAN(SWPLE) 

CALL  TLNT(S8, ARTSV,T»,  XAC1,  P CT, A TS V, TPPT, F v/ C,  ]?,fc,6,  IP, 6) 

KpP  ) 1 « K.  PRINT  (11) 

KPCIN'T(ll)  * 0 
X(l)  * SPLAN 
X ( 2 ) -0.0 

X (3)  « TR 

X(4)  « AR 

X ( 5 ) * C.O 

I F ( TW.E0.6.  ) X ( 5 ) 

X ( 6 ) • 0 .0 

X ( 7 ) *0.0 

I F ( TV. EC.  8.  ) X ( 7 ) 

X ( 8 ) • 0.0 

X(S)  « 0,0 

in  TW.FC.P.  ) X(<5) 

X(10)  = SVFPC 

30  >111)  « SPLAN 


0.C334 

C.C9 

1.173763  * TCC 


CALL  AEP?(SPEFC,  CLAX) 

X A C 2 * X AC  1 

VDAR  « (SPEEC**2  -1.  )/Tr-C**C.6667 

A6AP  « AP  * TCC**0«3333 
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c 

c 


I F C VBAR.C-6.1.0.0R.VeAR.tF.-2.  > C-C  TO  AO 
TRANSONIC  AEPQCYNANIC  CENTER 

CALL  TLNT(AeAB»VR/R,ART$R,VALm»XPP£,YI?rA,ZPr6,f  FT61,  A, A, 6, A, A) 
rm  TlNT(APA8,V9#t»A®TSV»VALt21,yi10fc»YBDfc»2P0f,FP.C62,A»A»A,A,A) 
CALL  TINT<AP.AR,VR/P,A9TSV',  VALt’),XPCfc,Yer.6,  ZFCA,FB0A3,  A,A,6»4,A) 

CALL  LNTPtTR,  XAC 2,  XV AL,  VAL,  3*  2) 

AO  XAfP  « XAfl 

IF  t SPEED. Lf  .FPCRC‘.nA.£PLFO.GE.1.2  > GT  TC  SO 

F ►*  1 « FMCPP  4 C.05 

FN2  - SC8TU.4  TCC  4 * .66667) 

XACR  « XAC2 

I F { SPEED. 6T.FN1.ANC. SPEED. IT. FN2  ) GC  TT  50 

I  F { SPEED.  IE.  FM  1 XAfP  « XAC1  4 { x Af?-X  AC1 ) « { S PF  EC-Ff-CRC  ) / .05 
IFC  SPE6C.Gc.FP?  ) XACR  « >AC2  4 { X AC1-X  t r,2  ) 4 ( S F E Et-FM2  ) / 

1 (1.2  “ FP2) 


C 

C 

c 


50  A°HT  « ?.*  APtP 

X ACS  • tl.42.4TF 1/12.4  AFTSV  4 (1.  4 TF  4 * ? / < ) . +7 fi  ) ) /*  . 

I F ( AP.CT.ARH1  ) GO  TD  60 

CALI  LNTPtOY,  XACS1*  XDY,  YAC,  6,  2) 

XACS  « XAC.S1  4 <1.4?.?4TM/17.5AA  ♦ APTSV  -C.2 

60  I F ( KPR]K*T<18)  .F0.2  ) VRITE  (6  / 1000)  SPEED*  AC,  SVP1F,  SWPKC, 

1 TP,  SPLAN,  TCC,  TV,  FPCFQ,  XACP,  ClAy» 

2 SP.»  ART5V,  X A C 1,  APAR,  VBAR,  VAL,  XAC 2, 

3 FP1,  FN2,  / PH J , XAf S 

1000  F 0 R H A T t 5X,  4 ACCP  CUPP*  /<5X»6F15.5>  ) 

KPRTNTtll)  * KPP11 

RETURN 

END 
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c 

c 


OVERLAY  (4,0) 

PROGPAM  NUCTAM 

CALCULATES  NUCLEAR  OAMAGE  AERODYNAMIC  EFFECTS 

COPP-CN  /INPUT/  A ( SOP  1 ) 

CCPPPN/OL1  TPUT  / P(??3J 
COPPCN  /CALC/  C < 5C  » 

CCPMC-N  /PIKFFT/  P PR  I N T (50 1 
COPPCN  /PLKTIl/  TTTir(N) 

COPPCN  /NLCCl  T / PAPCO(7»17>,  $YP(7»17),  PCPrIN1, 

A LP ( 2 1 ) / CL(?1),  COC  21 ) > CP ( 2 1 ) , CIT(21),  CPT(21)» 

Cl P ( 21 ) » CPP( 21 )/  C*P ( 21 ) / CLIP (21 ) / CDTP(21>, 
PriA(f),  P>  A C» 

CFr.LLOJ)#  CCRT ( ? 1 ) / X?(2),  XA(<) 

DIMENSION  ENAPM7),  ECD(7,2C),  .$NA*E  (7),  SIR(7,3C>,  FPSl’RV(20), 

A L T ( 2 0 ) / PFrr<7,ltl),  PH*R(7#1CC)»  IP/P(20) 

,DVINP(20),  C0SUM7#5)»  0RGStP(7),  C0PPP(7,5) 

EOUIVAIENCE  ( P1  ?C  YS,  A ( 1 ))  , ( NN  AC,  A ( ? ) ) , <NFH?,A(?)), 

(\HT»  AlUli  (NVT  » A ( 5 ) ) / ( 5 K F ^ ,A<11)>, 
(P£TfR,AUO)  >,  (FCUGMK.Adt  )),  ( P N AM  ( 1 ) , M 30 ) ) , 

(prn(  i,i ),(,  (27)  ),  (SNAP Ml  )»M177>), 

(SPMl.l  >,A(1FM),  (NSfPV»A(A^l)l# 

(PHSIPWO  ),  A (*c?) ),  (AlT(l)  jM513M« 

(0EPr(i,l ),A(16P?>>»  (PSl R ( 3 / 1 ) > A ( 23f  ?) ) 

,(irAP(l)  * A ( lfcA2  3 ) , (rv,tNCm,  A ( 3C62 ) ) 

» (CrSLP(l,l)»  B(H.<i)>,  (EC?/  con 

,(C®  ,C  (3  ) ),  (TEAR  /COD),  (TOCV  ,C(12)), 

ktx,  coen,  (coprr,(i»i)/«Mifcn 


COUPON  /EIKDAT3/XPACH3(17),  CrPK3(17>, 
VI  PH?  (6  > , H c X 2 ( r-  > , 

XCC?(H  , f L C3  ( A ) , 

YPACHPOB),  CPFM1?)  , 
7PACH3  03),  CPA 3 ( ! 3 ) , 
XICH4(1?)  , P0XM7)  , 
P/TTC3IF)  , l^CHHU), 
XirT/(6)  , VP ACH  ( 6 ) , 
NPGPS  « NPCCYS  + NNAC 
NRL-R  * NPNIS  + NHT  ♦ NVT 

7FP0  OUT  TME  DAKCPO/K)  ARFAY 
CC  6 1«  1,7 

rc*  ?.  k « i,  1? 

OAPCP ( I,K ) * c.0 

SY«(I,K)  « o.c 

CONTINUE 

CONTINUE 


CCP3(6#5J 
XN3 ( 6/ * ) 


CCPA(12,7)  , 
Dk  AG? ( 8, 1C  ) / 
CPAG4 ( 6/ f ) 


DETERMINE  ]F  P A PAGE  TO  AVOCRAFT  IS  SYMMETRICAL 


nn 

CO 

K 

IF 

IF 

IF 


8 J = 1,  7 

7 J « 1,  61,  30 

• 1 ♦ (J-13/10 

(OBOCU,  J)  .LT.O.O) 
(0SURd,J) .IT. 0.0) 

( r SLF  C I,  J + D.LT.C-.U) 


C“CD(I,J) 
PSL® ( I , J ) 
rrl P ( I , J+ 1 ) 
CONTINUE 
CONTINUE 


A EM 
A BS  ( 
A PS  ( 


S YP  ( J;  K ) « l.C 

SYP(I,K+IO)  * l.C 
SYP ( J , K+lj ) • 1.0 
crcr(i,j)j 
OSLR(I,JJ) 

0F(  R (7, J+l)  ) 


REVINC  10 


CO  500  J «1,  N5URV 
XPACH  • FISURVU) 

IF  ( K P R J n T (2f  3.FC.1  ) 

]I»p  ITF(t/5CG0)  XPACH 

READ  (10)  CL,  CP,  CP,  ALP,  CLT,  COT 
READ  (10)  P 

AAA  ■ A8$(B ()AA)-XMACH) 

IF  (AAA, 01, C.  (#01 ) k CI  Tc  (f>,  1001  ) 

1001  FORMAT ( // / 20X / * INCCFPECT  PACH  NUPPEP  VAS  P f AD  FRCP  ♦, 
1 ATAPE  UNIT  NUP8ER  10  * ) 
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44*4*444444444444444*44 


PKCFT  • 8(1^6) 

c 
c 

£44*444***44*4  l‘CCc  1 

0#*6  DUE  TC  RnUCNESS  OK  ECCIES  ** 4 4 **  4 * * 4 *** 44 4 4 4 **» *4 

10  IF  <IDAKU).NF.l)  C-0  TO  20 

0 

C 

11  12  i ■ i,  NPors 

pro  , c?C0U»]  ) ♦ 0FC0d#2) 

IF  (3PB.cQ.O.U)  *5r  TO  12 
C CALCULATE  ORAC  CF  U+DAJ'AGEC  BODIES 

C CALL  CF  K 3 (dACTH,  PN/fT,  XCl  ) 1>  yflllt  *1,  K2,  K3,  *ACH,  CF) 

CALL  C.FK3  dCOd,)).  RFCFTf  C.0».  0.0,  CPCT ( I , I ),C,G, yPACP,  CF) 
'll  * U * K 1 1 l I , *i  j / 5*  fc  r 
C CALCULATE  C&AG  Tc  f' AMACFO  BOPTFS 

C A I L CFK  3 (bOCI!.]),  RACFT,  CEC-0U,?),  CPCC(I,A)*  C8C0(I»1)» 

i_  r-prnn,?)/  (.pcpn,n,  xv-a ch,  cc) 


c 

C 


CTF 


- CF  4 Fi?ru,t)  / S P C F 


CALCULATE  fhpk  FACTO®  (FF)  FPPP  SURVEY  OF  AG  F F S l>  L T S 
FF  » »CCPGP<!,1)  4fCt'G0(l»2  > ) /CC BOC ( I , 1 > 

c 

riAKCOd.n  » (CO.F-COl)  ♦CFOf'df?)  * f r 
IF  ICeCC(IpS).GT.l.O)  DAKCC(I»1)  * (CDF-0 01)  <060-0.(1, ') 

1 * F F /FCF'UfA) 

JF  (KP°!NT ( 2 8 ) « f 0 . 1 ) ' 

1 2 2 C CFT I KLE* ' 0 1 1 > J,,,  CRT»  CDF'  CF»  CAKCTG  J#1 ) 

C 

C*44*+4*44*<4*  P-  0 0 F 2 4 4 4 4 4 + 444444444 

0**444444444*4  OF  AG  PUE  TO  cVP-FAClNG  STEPS  CK  PGOTFS  4 4 44444**444444 

20  IF  (I0AP(2).M  .1)  CO  TO  30- 

CALL  LCTF  (XAACH,  CPF,  YKACH3,  CPF?,  li,  A) 

CO  23  I * 1,  KPCOS 
SUM?  * ■c.v 

if  (OBcru,  11 ) .Eo. o.o)  cr  tc  22 
1 : (0  + 00(1,  n>.  so.  1.0)  DXOL  «u.O 

IF  n<*C0(I,ll).CT.l.O)  r-xn.  «(OSCO(I,lS)-CLrO(I,H)  ) 

C ro  21  SUPS  CJFFF  / C)FfieFSTFEAI'.rCFCF1ALl  STFPS 
N = 0-800(1,11) 

CO  21  X • 1,  N 


ru  * CPond,i*)  + pxtl  * (x-n 
xi  = xgi  * Fom,u 

FFIGHT  = 0800(1,13) 

CALL  EFFC(RI-rFT,  XI,  XNA-CH,  HEIGHT,  CEFF) 

si‘pc  « sm  ♦ offf 

IF  (KPPIKT(?E J.FC.l ) 

lKRITt (6/5C21)  J > I » K > XT,  CEFF,  CpF,  M-KC 

21  CCPTIKGE 
C 

22  ?ntWiH(?pS"oa?u*0  * CPCR(I^2»  * ctern.in/SPE* 

ICC  I TE ( 6 , 5022)  PAPC0(I,2) 

23  CONTINUE 
C 

044**44*444444  HCOE  3 444*4***44*44*4 

C+44444+44444*  DP  AG  POE  TO  AFT-FACING  STEPS  TN  ECT1FS  4 4 4 4 4444  *4444  4* 

„ 30  IF  ( I DAP ( 3 ) .N  E . 1 ) GO  TC  AC 

C 

CALI  LNTP  ( X P A C ci , CPA,  7PACH3,  CP  A 3,  13,  A) 

00  33  1 » 1,  NPCDS 

sup-o  , * o.o 

ir  (DSOr(I,21).FO.C.O)  CC-  TO  32 
IF  (OFCC(I,21).FO,1.C)  PXCL  • 0.0 

IF-  (HFCC  ( 1,21 ) ,GT  ,1.0)  DXCL  « < CHCO  (I , ? ‘ ) - DP.CO  ( I , 2A  ) ) 

. i /(oero(i,2i)-i.o) 

C f'n  31  SUNS  0)FFF  / 0)r8EESTF  E AM  FOF  ALL  STFPS 
N *08110  (I, 21) 

CO  31  K • 1,  N 


223 


oor> 


XOL  « 4 PXPL  ♦ (K-l) 

HEICHT  l CEOOU>22)T#1> 

S0PO  CFS°sf.EcrI*CfFr  HFIGHT»  CEFF) 

_If.iKp«lNTf?6| .F0.1 » 

311U?i^5t'2i»  j*  ,K*  >I#  oerF*  SI  PC 

* itrou,??)  . cett(i,j»i/s*cr 

c aa’JSiKiSi”"' 

£*****♦♦♦*♦**♦  MPOF  L 

C***M*»«*»"«  TPAG  DUE  TO  HOLE?  IN  FISEUGE 
f 40  IF  <IP*M4).NE.1>  00  TC  50 


CO  44  I » 1,  n on n * 

• OfLTi-X  FOF  EAOH  H^LE 

IF  'Obnn!  i'll ! *tn*?*PI  £r' 

T F »KSPrn?lH*£9*}'0|  mi  • C.O 


If  fBEPli'H  R?:h  po£  ■ c.o 

1 CPCF (I>31).GT.1.0)  PXOL  . (OfiPD (J , 3 7 )-PF CP (I , 3f ) ) 
COO  » o«0  ( DBOP ( I>  31  )-l . C) 


on  4 2 

N 

00  42 

XGl 

X 

KOX 

XICH 


*Lr^orn#3i)  ALL  wnLES'  fiASED  on  cpppfct  x-sta.,  eooyii) 

K * 1>  N 

: • d,,ci- 
: K8!l:iU  Morn.,,, 


41 


c 

r 


IF  < 08DP ( 1 , 3f ) * E.Q,  2 ) GC  TO  41 

IL**1  C'h, oi • io. o xi nw  ■ 20.0 

GO  TO  43  DLM‘H0H'  HCX'  X LCH3# . HCX 3#  Crc3,  6,  5,  6,  2,  2) 

?5L9tti*TI™S  CAVFO-IK  FAKEIS 
tc  li*-  «VA- J HEX  * 0,015 

prrnX^^ftfit-l^»0)  XL  OH  * I2C»0 

OCCO  « OLNTOLCH.  HGX,  XLCH4,  HGX4,  CC04,  12,  7,  32,  2,  2) 


c 

c 


4 3 COO  « COP  ♦ DCDP 

421CPNTIKUEI^^’,^°^>K'  *'  ^CDr,  COO 

",c  ■ C.ic-.I  i.f  I.5i  .'•LloUAi!1,  cerod.ani 

?«$!?:“’ : oir?r",'’PT  "c*  *‘"<>1  «ofi 

IF  (KPPIM(26).F<3.1) 

«4lc£inu&5c^  ^^C0(I,4) 

c 

C*************  urnr  K 

PRAG  puE  TpN'Jfpg  rN  B00I.S 

c 50  IF  (I0AF(5).Nf .1)  CG  TC  60 

co  i«  1,  NPors 

IF  /iE/iFu'rf1!  ♦F?*P*0>  C-Ci  TP  5F 
JF  (XHACH.Gfc , 1,0)  60  TO  53 

SUPSPNIC 


Eijxrn  . c.o 

IF  ( 0 F 0 0 ( 1, 41 ) ,F0.0.0) 


GO  To  511 


Ilk 


ooo 


IP  (TECIM  I*Al).f 0.1.0) 
IF  (DeCDtI*<,l).0T.l.O) 


DXCL  • 0.0 

pxci  • <rpr.ro. <,7)-DP.non#Afc)) 

/ <C6GC(I*A1)-  l.CI 

k * ppocn*4i) 
ro  51  K • 1*  N 

xol  ■ ORroti»*ft)  ♦ rxm  * <K-n 
xi  • xri  * rcoii>i) 

HFIGHT  « 0800(1*45) 

CALL  EFFC( FHGFT*  >1*  X-ACH,  HP  1GHT  # CEFF) 

dpag  * i5.o  ♦ <r«ro(i»45)/cppnn»*3))**?  * oeff 
1 ♦ 0P."nU><i5>*CFCD<  1*44  J/SPEF 

SUMCO  » SUNCO  4 CRAG 
IP  (KPFIN'T  (28). 60. 1 ) 

1 V P I TE (6*  5051 ) J*  It  K t XI*  OEFF*  CRAG*  SIKCP 
51  C CM  I M E 

C AHFLIFY  CRAG  CF  W/VFS  rVE*  VIN6  8Y  2.31 

SUHCP  » SUMP  ■*  SUf.CD  * (OECDC  I>A2»/rPCD(J>Al))  41.31 
511  PAKriMT**)  . SUNCD 
IF  (KPR1M(  2P  ) . F 0.1 ) 

IV1?  ITE  (6#  5052 ) J*  It  DANCCU*?) 

CO  TG  58 

SOPFRSON'  TC 

53  CONTINUE- 

CRAG  * <<5.P7/FOFTnrMrM*?  -1.0))  ♦ ( CEC  P ( 1*45)  /OPTO  (1,43)  ) 

l * opcd(i»ai)  4<oeop<i#p.*.)4Pero<i»Af))  / spef 

C AMPLIFY  CRAG  OF  yAVES  PVFP  V J PAG  0 Y 2.31 

CRAG  « PV  AG  4 CRAG  *( DPCD( 1*42 ) / CBCD ( I, 4 1 ) ) ♦ 1.31 
CANC0(T,5)  « PR  AC 
IF  ( X PR INT  (?E).E0.1) 
iVCITE(6#f053)  J*  I.  OAR'CO  1 1*  K ) 

58  CONTINUE 
f 

£44*444444*44*  PCDF  6 ♦ ♦♦♦♦A********'!  ♦ >t 

04444444444444  DRAG  CUE  TO  PROTUBERANCES  ON  PTCIES  444444444444444444 

c 

IF  ( IDAM(6 ) ,N'C  .1 ) GO  TO  70 


oO 


CO  63  I • 1*  NPOCS 
SUNCP  •«  O.C 

IF  <0FCC<I»51).F0.0.0)  GO  TO  62 
IF  I0EGOU/5D.EO.1.C)  DXCL  * 0.0 
IF  (G8C C (1*51). GT. 1.0)  DXCL 


roc  - rpr-r<i*5?) 

HEIGHT  « C8CD(I»5?) 

N « DPCC(I*51) 

00  61  K * 1*  N 

XOl  » r?CD(I*5A)  + CXOL  ♦ 

XT  ■ XC'L  * 6CP < I*  1 ) 


{D"0C(I*5f )-CPC0(I*5A)) 
/ < OBCT C 1 * E 1 ) - l.C) 


(K-l) 


C 


GALL  EFFO(ONOFT*  XT*  XNACH*  HEIGHT*  CEFF) 

C°  AG  * CEFF  * POO  / SPEF 
SUMOD  » SO PC  D ♦ TP  AG 
IF  <KPRINT<2f J.EO.l) 

1 V PIT  F.  (6*5061)  J*  I*  K*  XI*  OEFF  * DRAG*  Sl'KCD 

61  CGMTNUE 

62  PANCP ( I*  6 ) * SUPCO 

63  CONTINUE 


04444444444444  H00F  7 444444444444444444444444444 

C 4*444+4444444  CRAG  DUE  TO  BLUN'TED  eOOIES  4 4 4 4 4 444  44444  4444444  44444  4* 

c 

70  IP  (IDAP(7).N'F.l  ) GO  TO  11C 
C 

CP  71  I « )*  NPOCS 
IF  <DFCr(I*61).F0.0.C)  GO  TO  71 

cn  • o.o 

CP2  « O.C 

C CALCL'LATE  DRAG  FOR  SPHERICAL*  SFVEPFC  NOSE 
P^AX  « SCRT(PPP(I*7)  /3.1A159) 

PNCSF  « SCRT(DPnP(  1,61)  / 3.14159) 

RATIO  » PNPSF  / RMAX 

CRAG1  • GLUT  (PATIO*  XNACH,  PATIC3*  UPACH*  CP  AC-3*  P*  10*  8*  it  < ) 

CPI  « 0RAG1  ♦ PP0(I*7)  / SPEF 
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CALCULATE  CP  AC-  FOR  FLATTING  NtSE  OF  SPHERE 

PRAG2  • DLNT(PFCr(I#fc2)#XMCH#XLLP»V)'ACF#PEA64.‘>f#fc#6»£#?) 

C02  • ORAG2  * DP0D(I»tl)  / SPEF 


PNOSE#  ORAG1# 
DANCD(I#7) 


CP AC2# 


TN  SUPFACES 


oakcou#?)  « rri  4 002 

! F (KFP1NT(?P).E0.1) 

1VR1TE  U#5C71)  J#l#P.PAX# 

1 CPI#  CO?» 

71  CCNTIME 

(-444  444444  4 444  PCTF  11 

C 444  4«44444444  r-PAC  DUE  TO  ROUE HN  FSS 

c 

1 e (lCA**mi.KF.l)  60  TO  120 
CO  )13  I * 1»  KSUB 
CALCULATE  PRAC  EF  UNPAMC-EP  VINC 

( LENGTH#  RN/FT#  X r?  L ) 1 » XCL)£#  Kl#  K2#  X3#  KACH# 
(SUMJ»?0)»»NCFT»0#0#  tSUF  ( I#  1 )#0#C»  XKACH#  CF) 
Cf  ♦ SUM!#?)  / SR  E F 
P»AC-  re  CAPAC-EP  SURFACE 
(SUP(1#20)#  RNOFT#  PSUR(l»3)»  C-$UF(!#4)# 
PSl-R(I#l)»  PSl’R  ( I # 2 ) # OSl  R ( I#  1 )#  X l'  A C H # CF) 

Cf  ♦ 5 UF  < I# 7 1 / SPFF 


C 

C 

C. 


110 

111 


call  C FK 3 
CALL  CFK3 
CPI 

CALCULATE 
CALL  CFK3 


444444444*4444444444 

4*444444444444444444 


CF) 


CPF 

QCC 


■ (COF-  CP!)  4 OSl'R  ( I # 5 ) / SUM)#?) 


C 

C 


tF  (0$UMI»5)  .LF.l.)  err  « (CCR-CD!)  * PSUR(T#5) 


MC-NIPY  DR  AC-  IF  PAP  AGF 
IF  (OSUPtl #6) .FC.C.C) 
TOC  • SUE ( I » 3 ) 

Xf*  « l.  + 3.*Tnr 
CCO  * TCD  ♦ XH 

112  PAKO  ( 1# 11 ) ■ PCO 

If  (KP0IKT(2e).EC.l) 
1VKITFU#5111)  J»  I#  CF# 

113  CCNT1KLF 


TS 

6C 


ON 

TO 


UPPER 

112 


SURFACE 


CD1#  COF,  CCD#  XH#  rA*CD(J#ll) 


STEPS  CN  5.UF  FACES 


CPF3#  12#  A) 


4444444444444 

4444444444444 


C*44444*444444  POPE  12 

(^  4*  4 444*  44444  PRAG  PUE  TF  FVC-FACING 

120  IF  ( ICAKI 12) « NE • 1)  C-P  TO  130 
CALL  .LN7P  (XAACH,  CPF,  YPACH3# 

Of,  125  I • 1#  NSUR 
StHCPL  • C.O 
SO-'COH  « C-.C 

CO  * 4.C/  SUP ( I#19)*  (1.  -sue (1,17))/  (1.  ♦ SUP ( I » 17  ) ) 

CALCULATE  CRAG  FfR  STEPS  Oh  LCV.-VELEC1TY  SURFACFS 


1 


Ic 

IF 

IF 


CCSUR  < I # 11 ) .FO.O.O) 
(OSUR(I#ll).FC.l  .0) 
(CSl.M  1 # 11 ) .CT.1.0) 


121 


PSUR ( I# 11 ) 


GC  TP  12? 

dxcc  « (PSLR(i#if)  -rsuMi#im 
rxoc  • (C$UMT#lt)-CS0R(I#15)) 

/ I DSLP 1 1 # 11 )-  1.0) 


/2  < 


lj 


N 


4 PXCC  * 


(K-l) 

OXCC 


N 

CO 

xnc  * DSL  P ( T # 1 5 ) 

IF  (N.EC.l)  XPC  * OSL'R ( I#  15 ) 

XI  • XCC  * SIP.  ( I#  20) 

HEIGHT  * CSUP(I»14) 

CALL  EFFOIRKOFT#  XI#  XPACH#  HF.TGHT# 

TSVP  * lAf!(SlR<I#«.)) 

SVPXOC  • ATAMTSVP  -CO  4 XCC) 

DRAG  « CPF4tmS(SwPXnC))44?  4 OEFF 
SUMCDL  « SOKOL  + DRAG 
IF  (KPRIK-T(2P).t0.1) 

1V°]TE (fc#5121 ) J#I#K#XI#CEFF#SWPXCC#DPAC#  SUPCDL 
121  CONTINUE 


CEFC ) 


*PSUP(1#13)*PSUP(I#14)/SREF 


122 


1 


IF 

TF 

IF 


CALCULATE  CRAG  FOR  STEPS  ON  H IGH-VE l EC  I TY  SURFACES 


(OSOM »#12).ro.O.O) 
(0SUP(T#12) .rO.l.O) 
(PSL'M1#1?).GT«1»0) 


GO  TO  124 
DXC-C  * ( DSUR  ( I#  1 ( ) -DSLP  ( I#  15  ) ) 
PXOC  » { P^l'R  < I # 1 f )-CSUF(  1,15)) 
/CDSUR(I#12)-  1.0) 


/2. 


N • CSUR (1*1?) 

CO  123  K « 1,  K 
XOC  « CSUP  ( 1*15)  ♦ R'XOC  4 (K-l) 

TF  (N.EC.l)  XOC  » PSIJP  ( T#  15  > ♦ DXCC 
XI  • XOC  « $l'MI#20) 

HEIGHT  « DSl-R  ( I » 14  ) 

CALL  EFFO(PNCFT#  XI#  XP.ACH#  hEIC-HT#  CEFF) 
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TSWP  ■ TAN  ( SL’P  ( I / A ) ) 

SWPXOC  « ATAMTSVP  -cc  ♦ XOC) 

CLO  * S U P ( I > .?  > 

o’f.c  . cfFSl(cKJlt?£Sxffii.5Ec.3’ol^?{  V,H  2’  21 

Sc.-cok  . n.-cc/T^P*  ' 2'" 

IF  (PPPTNT (2fi ) • FC«1 ) 

12 3* CON]  INLE512£)  J,I'K'XI'Cf FF/SWPXCC/XK/CRAG/SUNCDH 

124  OAKDM/12)  » Sl‘MCOL  4 SUNCPH 
12  5 CONTINUE 

C***  **********  MPDF  1’  ************* 

^*************  QRAG  0UE  Tc  AFT-FACING  STEPS  ON  SURFACES  ************* 

130  IF  (ICAN(13)  .NE.l)  CO  TO  140 

CPA3'  U>  " 

5UKCDL  • 0.0 
SUNCCF  * 0.0 


CO 


* <i  .0/Sl'R(I/  14)  * (1.  -SL0(I/)7))/  (1.  4 SLR ( 1/ 17  ) ) 


1 


IF  (0SL'F(I/21).F0.1.U) 
IF  (OSUP(  1/21)  .C-T.l  .0) 


1 


CALCULATE  CMG  DUE  TO.  STEPS  ON  LCW-Vf  ICC  ITY  SURFACES 
( OSUM  1»?1 ) .FO.O.C  ) GO  TO  13? 

OXCC  * (DSUM1/26)  -PSl!«M  J/25)  ) /2. 

OXCC  * <CSl<?{T,2n-CSUF(lJ?f  > 

/ ( CSUP ( T / 2 1 ) - 1.0) 

r » CSUP<I/21) 

CO  131  K . l,  V 

XOC,  * CSUR ( I / 2 5 ) + OXCC  ♦ (K-l) 

IF  (N.EC.l)  XOC  « DSL'P(I/2*>)  4 OXCC 
XI  » XOC  * 51  (MI/2C) 

t-FIGHT  * 0SURII/2A) 

CALL  EFFO(PNCFT/  XI/  XNACH/  HEIGHT/  CFFF ) 

TSwP  * T A N ( 3UF ( I / A ) ) 

SdXCC  * ATAMTSwr  - CC  ♦ XCC) 

sincol  : s£Wc£c?s4K£yrr,M*2  ♦°EEf:*^pn/23>*csLF(t/24)/sREF 

IF  0<PP1NT(28).FC,1) 

1311CCNTINUt5131)  J'I'K'XI>CEf:,:'SvPX0C'CP/SE»SUKCCl 

nz  if  f^&S?dI!??^§.5SSlSTIgsTE^aSi<iH-VEl0C,T1'  !ulif*CES 

if  iDiuIiiJili :l¥:i :Si  ESSf  '-iEi^^i’J^i-FSo^SJfi?.”  ,2- 

■f  . ch.mi.j2i  mfuc"’!21- 

cr.  133  K = 1/  N 
XOC  « C SUP ( 1/ 25 ) 4 cxcc  ♦ (K-l) 

IF  (N.EC.l)  XCC  « 05  UR  ( I / 25  ) 4 OXCC 
XI  * XOC  * SUM  1/20) 

HEIGHT  = CSlrPd/24) 

CALL  E F F C ( h N C F T / XI/  XKACH/  HEIGHT/  CEFF) 

TSWP  * TAN (SUP (1/ A) ) 

SWPXOC  * ATANITSWP  - CC  ♦ XOC) 

5 L P ( 1/  2 ) 

6-  2>  21 

......  H»CCK  . cESr11'”’  ’ ' S8Ef 

1 F (KPPJNT(28)  .FO.’l) 

13  3 Continue  5 1321  j'i'k»xi*0EF,:'sv'pxgc'xp>gp*C/SL,ncdh 

124  Pii’.QVJ,1* 13)  * siwol  4 SUNCDH 
„ 135  CONTINUE 
C 

C***  ♦♦  ♦ + ****♦*  HOOF  1A  ************************ 

C*************  CRAG  CUE  TO  HOLES  TN  SURFACES  ************************ 

140  IF  (IOAM(IA).NF.l)  GO  TO  150 
CO  1 A 9 I ■ 1/  N SUP 
C 

C kcw  VELOCITY  SURFACES 

COOL  * 0.0 

IF  (DSUP ( 1/31) .EO. 0.0)  GO  TO  142 


CLD 
XK 

DRAG 

l 

SUNCDH 


1 
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ooo 


IP  (DSl'B(I/31).EO.X.O)  DXCC  * t 0 S'  U P ( I » ? 7 ) -0$UO(I/3e))  /2. 
IP  <DSL>S(I»31).CT.1.0)  DXOC  * { C SU*  U > ?7  )-PSfC  < J , 26 ) ) 

1 " / (CSl-p  ( I#  311-1 .0) 

00  141  SUNS  COO  FOR  ALL  HOLES  C-N  LCW  VELCCITY  SURFACE 
N » C SUP ( J/ 31 ) 

OC  141  K » 1/  N 

XGC  • OSUR  (1*26 ) * ( K — 1 ) ♦ D*GC 
X « XPC  * SL*R  (1*20) 

HOX  « rS0P(I,3f)  / X 

X LCH  • CSl'R  ( J » 33  ) / r SU»  C I > 3 5 ) 

IF  (Q3UP(I_»38).E0.2.0)  GO  TO  145 

CALCULATE  DCOO  FOP  PISSING  PANELS 
IF  fHCX  .C-T.0.1)  HCX  = 0,1 
IF  (XLCH.GT.10.0)  XL  OH  » 10. C 

CCLC  * PLmXLOH#  HCX/  XLCH2/  H0X2/  CCC3/  t,  5/  6/  2/  2) 
GO  TO  146 

CALCULATE  DC  Of  F OF  CAVFD-IK1  PANELS 
145  Ic  (HCX. GT.  0.015)  HCX  * C.G15 
IF  (XLCH.GT.12C.-J)  XL  OH  . 1P0.C 

rcc-c  * CLNT  (XLC-H,  HCX/  XLCH4/  HCX4>  ccr4>  12/7/12/2/2) 


146  CCCL 


f COL  -i  OCOO 


C 

C 


IF  (KFPINT  (28)  .FC. 1) 

1 V.  o I T C ( 6 j 5 1 4 1 ) J>  J/.  K/  X>  HCX/  XLGW/  DCPC/  COOL 
14  1 C ON  T I N U t 

HIGH  VELOCITY  SURFACES 

142  CTCH  < 0.0 

IF  (DSL'P(I»3?).FO.O.O)  GO  TO  144 

IF  (DSU  ( 1/32)  .TO. 1.0)  OXGC  * (D«L-P(I»37)  -P  SI'F  ( I / 36  ) ) / 2. 
Ir  (DSUF(I»32).CT.l.)  r-XCC*(CSUP(I>37)-OSLfi(I,36)) 

1 / (CSOR(I/V>  - 1.0) 

CC  143  SUPS  COC  FOP  ALL  HOLES  ON  H1CF  VELOCITY  SURFACE 
N « CSlJR  ( 1/3?  ) 

00  143  K * 1/  N 

XGC  * CSLP  ( I / 36 ) + (K-l)  4 CXGC 
X . XCC  * SLP(J,20) 

FOX  « rSL'R(I,36)  / X 

XL  OH  = OSUP ( I / 3 3 ) / PSUP(I/35> 

IF  ( 0 SUP  ( I/3F  ).EC.2.G)  C-0  TO  147 

CALCULATE  OCOO  FTP  PISSING  PANELS 
IF  (HCX. GT. 0.1)  HOX  * 0.1 
IF  (XLCF.GT. 1C.0)  XLPH  * 10.0 

CCCO  * OLNT(XLOH>  HCX/  X L 0H2  / HCX3/  CDC3/  6/  5/  6/  2,  2) 
GO  TO  148 

CALCULATE  PCTG  FGF  CAVFD-IN  PANELS 

147  IF  (hOX.GT.j.015)  Hf  X = 0.015 
IF  (XLGH.C-T.  120.0)  X l CH  « 120.0 

CCCO  * DLNT(Xt<>,  HCX/  XLCP*,  H0X4/  CCC4/  12/  7/  12/2/2) 

148  CLD  * SUF ( 1/2) 

XH  = CtMOCC  > CLC/  XCC2  / C L C3 / XP2  / 6/  4/  6/  2/  2) 

cccH  « cogh  + ocon  ♦ XN 

r F (KPPINTI26) .EO.l: 

lVRITc(t*5l42  ) J,  1/  K,  X/  HOX/  XLPH/  CCOC-/  CDCH 

143  CONTINUE 


CALCULATE  DRAG  FPCN  COC  FOR  LCW  AND  HIGH  VELOCITY  SOPFACES 


144  CONTINUE 

CALL  LN'TP  (XMACH/  CQKK/  XMACH3/  C ONK  3/  17/  4) 


SlNCDC  = COCl  ♦ CPOH 

DRAG  - SUNCCC-  * CGFK  « OSIT  ( I / 34  ) ♦CSUR  (I  / 2 5 ) / SREF 
APC  ■ CSl’R  ( I > 31  ) + C S U F (1/32) 

IF  (A8C .GT, 0.1. ANT. KPF lNT(2b) .EO.l)  W P I T t ( 6/ 5143 ) f OHK > SI NCOC/ OR  AG 
C ANCO (1/14)  = CRAG 
140  LGNTJNUE 
C 

C**  + <,*.  *******  NOOE  15  *******♦*****+**♦**+♦*** 
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oo  ouoo 


£4444*44444444  CRAG  OUE  TO  WAVES  OK  SURFACES  4444444444444*444444444* 
C 

150  IF  (IDAKC15) .NE.l)  GO  TO  160 
DC  159  I • 1,*SUR 

C 

IF  (XMACH.GE.1.0)  GO  TO  1551 
S U P S 0 N I C 

CALCULATE  TRAC-  FOR  LOW-VELOCITY  SURFACES 
Sl'PCCL  « C.O 

IF  (OSlM 1,91) .to. 0.0)  CG  TO  152  . _ 

IF  (05LRU, 91). £0.1.0)  DXOC  L * ( OSUR  ( I , A 7 )-TS  l’R  ( I#  46 ))  / 2 . 

IF  ( DSUR  ( 1 , 9 1 ) .OT . 1 .0 ) r>0CL»  ( OSUP.  (I , * 7 )-CSUR  11 , 96  ) ) 

1 / (GSL'P(l,91)-l.t) 

K • CSUR(I»A1> 

CO  151  K ■ 1.  N 
XGCL  » DSUF (I » 46 ) 

XI  • XOCL  * SUP ( I>20) 

HEIGHT  • DUS  (I. *5) 

CALL  FFFOHNT.FT,  M,  XPACH,  HEIGHT.  OFFP) 

CCAGL  « 15. C ♦(DSUR(I»9£)  / DSL'P<I,93))«42  * OF  F F 
1 ♦ rsu»n»*5)  ♦ DSURH»9M  / SPEF 

SUPCDL  * SLvCnL+  TFAGL 
IF  (KPRIKT (2FI.EC.1) 

HRJTF  (6,5151)  J.  I.  K>  OF F F»  CRAGL.  SL'-COL 

151  CONTINUE 

CALCULATE  CRAG  FCF  HIGH-VE LOCITY  SURFACES 

152  «UPCDH  ■ 0.0 

IF  (DSLR(1,92)«EQ.0.C) 

*“  (DSL’S  (1,92)  ,E0.1 .0) 


♦ DXOCL+  (K-l) 


TF 

IF 


CO  TO  154 

DXPC  F * (CSUR( I,*7)-DSLR(I,‘6 ) )/2. 

( 0 *=  U p ( 1.42). GT.  1.0)  PXOCF*  (0«UC  ( 1. 4? »-{  Sl'P(  T >4  6)) 

/ ( DSU? < I. 42 ) - 1.0) 


N « DSUF (1.42) 

CP  153  K « 1.  N 
XOCH  - 0SLR(T,46)  4 CXCCH  4 (K-l) 

XT  « XCCH  * SUP ( T, 20) 

HEIGHT  • rSlS(I.4E) 

CALL  6FFC(°F0FT,  XI,  XPACH,  FFJGHT,  CFFF) 

XH  « OL M (XCCH,  SUP { 1 , 2 ) , XCC3,  CLD3,  XP3,  6.4, 6,2,2) 


/ DSUS (1,42) )**2  ♦ CFFF 
* CSUS  (1,44)  / SREF 


CBAC-H  « 15.0  * (CSLS  (J,45) 

1 4 XP  v OS UR (1,45) 

SUPCDH  « SLPC.OH  + PPAGH 
IF  (KPR1NT(28).F0.1) 

1FBITE (c,5152 ) J,  I,  K,  OFF  F , XP,  DRAGH,  SIPCCH 

153  CONTINUE 

154  C*HCD(I#1£>  « SUPCDL  ♦ SUPCDH 
GO  TO  159 


SUPERSONIC 

CALCULATE  DRAG  FOR  LQW'-VE  l C CITY  SURFACES 
1551  SL'KPL  « 0.0 

IF  (0SLP(l»9l).FC.0.C)  GO  TC  1598  , 

SUPCOL  * 9. *7/  SORT ( XP  t C H*  < 2 -1.0)  A (DSHP (1,45)  /GSL<MT,93)) 
1 4 PSLP ( 1 , 4 1 ) 4 DSUF(I>45)  ♦ PSUP(i,99)  /SPFF 

IF  (KPRINT(RF).EO.l) 

1 VS  I TE  (6,5153)  J,  I,  Sl.’PCDl 

! CALCULATE  DRAG  FOP  HIGH-VELOCITY  SIRFACES 
1598  M:PCOH  « 0.0 

T p (rSUKI,42).FC.0.0)  GO  TO  157 

IF  (CSIJR(I>4?  ).EP.l  .0)  CXrCH*  (CSUS(I.47)-CSUS(I,4£  ) )/2. 

IF  (DSLR( I>42) .CT.1.0)  CXOCH  « (0SLP(1,‘7)-  CSUP(I,9fc)) 

1 / <rsiR(l>42)  -1.0) 

N « CSl R<  I, 43  ) 

CO  156  K « 1,  N 

* 

xcc  • CRUSH,  46)  ♦ CXOCH  *(K  -1) 

CLD  « S US ( 1,2) 

XP  * DINT ( XPC , CLP,  XCC  3,  CLC3,  XP3,  6,4,6 ,2,2) 

CRAG  » 9 . F 7 /s:CRT(XPACH44?-l  ,G)  ♦ ( D S U R (1,45)  /CSIRU.43)) 

1 *0)  UP  (1,45)  * DSLRU/44)  /SREF  4 XP 

SUPCDH  * SUPCDH  ♦ DRAG 
IF  (KpPlNT(?ff).FQ.l> 

1 WP  I T E ( 6 , 51 54 ) J,  I,  K,  XP,  DRAG,  SUPCDH 
156  CONTINUE 
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157  0 A MC 0 < I > 1 5 ) • St'MfCl  ♦ suncph 
15<5  CONTINUE 


C *44 ... .**..**  “Nlf  It 

crag  due  rr  protuberances  on  surfaces  ***.♦♦*. ♦***♦<*+ 

c 

160  IF  ( I DAM  ( 16 ) .NF.l)  C*0  TO  170 
C 
C 

CC  163  I • 1#  N SI  R 
SIHCO  * 0.0 

I e (0$UF(I.51) .EC. 0.0)  GO  TO  162 
IF  <DSUR(1>51) .£0.1.0)  CXCC  * C.O 
IF  (OSUH  1 > 5 1 ) .CT.1.0)  DXTC 


OOC 

N 

CO  161 
XOC 

PFIGHT 

XI 

HEIGHT 


<CSUF.fI,5f  )-rSl'P{  I>5A)  ) 
/ (DSlR(I.fl)  - 1.0) 


* ( K-l ) 


OSUP (1.53) 

OSURCI.El) 

K « 1,  N 

CSUR ( 1 . 5 A ) ♦ DXCC 
C SL-R  ( I » 5?  ) 

XCC  * SLPU.20) 

...  3.0/12.0 

CAll  E F f C ( RNP  FT.  >1.  XMCH.  HEIGHT.  CEFF) 

DRAG  ■ CfFF  ♦ CCC  / SPEF 
Sl/HCO  - SIKCC  + DRAG 
I f (KRP)NT(28) .FO.l ) 

HPITE (6.5161)  J.  I.  K.  XI.  CEFF.  CRAG.  SUHCC 
161  CONTINUE 
16?  CAN  CD (1.16)  ■ SUNCD 
163  CONTINUE 


C+**+++******* 


NC'C  6 17 


DRAG  0UF  TO  HISSING  1 1 N G S FARTS  ’•*»< 

CALCULATE  NIN'IRUH  DRAC  CUF  TO  •'ISSIN'C-  l E A T I N C-  EDGE 

170  IF  ( I P A M ( 1 7 ) .N'E.l)  GO  TC  210 
CRAGLE  = O.C 
CFAGTE  * C.O 
DPGTIP  - 0.0 


0.01C 

0.015 


IF  (CV  INCI5)  .LE.1.0)  SHARPF 
IF  ( Dl I NG ( 5 ) . GT. 1 . 0 ) SHARPF 
DHL?  « C H N G ( 3 ) * PC? 

DFAGLt  * SHARPF  * CWINC-(A)  * DELP 
IF  (0VING( t) .EC. 3.0)  TPAGLE  * 2. 

IF  (KfPIK(28) . E 0 . 1 ) 

1 WRITE (t.517i ) XWACH. SHARRF. DELB.CBAF.DFAGLE 


* CRAP  / SREF 

* DRAGL  F 


171 


172 


CALCULATE  MINIMUM  DRAG  DUF  TO  HISSING  TRAILING  EDGF 
CONTINUE 

CHARI  • LENGTH  Cc  CHORD  WITH  HISSING  T.E.  PANEL 
CHARL  * (i .-OWING!? ) ) * CHAR 
IF  (IDANni).FC.l)  RC-HK  * C S UR  ( 1.  2 ) 

I F«  (D5UP(1.2).EO.C.O)  R GHK  * RC-UGHK 
JF  ( jrAH(l*).NF.l)  R GHK  « FCUC-HK 

CALI  C FK  3 (LtfGTH.  P*/FT.  XCD1.  X C l ) 2.  Kl,  H2,  K3.  MACH.  CF) 
CALL  C F K 3 ( CHA.Pl  . F NCF  T.  0 . . 0 ..  R GHK  , 0 . . 0 . . XHACH.  CF) 

CALI  GFK?  (CPAP,  FNC=T»G.»0..FGHK.0..C..X»'ACH,CF1) 

CHIP  * CMNG(F)  * P02 


OPACTE  « (0.?/CF»+{.,3?)*CWING(7)**1.33  * TPCW**1.?3 
1 +DELP  *CP/P/SPEC  + (CF1*CHAPL  -CF  *C  BA  R ) * C f L P/ S PF  F 

IF  (OWING  (1C)  , EC, 3.0)  CRAGTf.  * 2.  * DRAGTE 
C 

C DRAGTE  • BASE  DRAG  ♦ CHANGE  IN  FRICTION  TRAG 
G 

r F (KPRINT(2F).E0.I  ) 

1VPJTF  (6.5172)  FNCFT.  CHARL.  RCHK.  CELE.  CF.  CF1.  OFAC-TE 

C CALCULATE  *INIFUM  DRAG  DIE  TO  MISSING  TIP 

C 

C CHARACTERISTIC  LTI G T H CF  HISSING  WING  TIP 
C CPRK  » AVERAGE  GHOPP  M POINT  WHERE  fRFAK  CCCLFS 


230 


CELETA  « 0.5  * ( n V T K G ( 11 ) +TV  IK  G ( 12  ) ) 

C^ORD  * o!6fc6?C*"<icPB‘<*+nCTX,T-ri}SK  * TTX  /(CPRK+CT*)) 

A WET  « (CBRK  ♦ CTX)  ♦ < GW  J f C( II ) 40V JNf( 12  ) ) * PC2 

Till  CFK3  (CHCPTif  ^rFT>0#0»RC-HK»C»i.#>t*/C»-#Cn 
CRGT1F  • - CF  * AVFT  / SR  E F 

T F (KPRlKT(2e).EC.l)  „ „ 

1WF ITF ( 6, 1172)  CF'-K#  CHORD,  AWET,  CF,  DPCTIP 

C*MCP<1,17)  * ORACLE  + "FACTE  + CRGTIP 
]F  ( KRP 1 NT ( 26 ) . f 0 . 1 ) 

1VPIT£(6,517A)  CR  AC  Lf  , OR  AGTE  , ORGTIP»  C'ANCD(1,17) 

MINIMUM  DRAG  DUE  TO  KISSING  SURFACE  HAFTS 

RUN  CGNPPA  ENTS  Pe  MINIMUM  DRAG  F CF  EACH  SLPFACE 
CC  17B  1=  1#  NSUP 

CPGStRdI  * 0.0 

rr  i?a  n ■ i , a 

PFGSU® ( I ) * rPGSUp(I)  4 C D S U F ( I , N ) 

1 7 A COM  INUF 
175  CCNTIM.E 

CALCULATE  ORAG  CHANGE  DUE  TO  KISSING  SURFACE  PARTS 

IF  (NHT.FC.O)  ' HT  * 1 
IF  (NFT.GT.C)  1 HT  * + 2 

IF  (NM.C-T.O)  r { 2 1 1 7*)  * -DPGSIP(2)*(CVINC(1A)4DHNG(15)  W2» 

OP  176  I « K»  NSL'P 

c#KCP(I»17)  * -CRCSl'P(I)  * OWING  (16-M-F  ) 
lit  CrNTINl-F. 

leCliFITE  (t.'sl?!)  (IfCPGSUPd)#  DAN. COt  1,17),  I - l.NSL'P) 

210  CONTI N IE 

; INCREASE  CRAG  IF  DAMAGE  IS  SYMMETRICAL 

CG  230  K » 1,  7 

if  (sym i/ki.ec^iI'j)  OAProt i»m • *rr<i,fc)  * rA”crn>F) 

IF  <SYM(I,X4iy).FC.1.0)  DAK  0 ( 1 # K + 10  ) * 2.C.  t CAKC(I,K4i„) 

??0  CCM  I NL'f 
230  CGNTINLE 

CALL  URITE(J)  t 
CALL  NUC0AM2(v') 

CALL  NT?  IN ( J ) 

CALL  V R 1 T F.  2 ( J ) 

500  CONTINUE 


FORMAT  STATEMENTS  FDR  CHFCKGL'T 


FORMAT  ( 1F1,  /,  ICY,  TUMP  FPGN  SUFPCLTINF  NL'CPAK,  NACH  »*, 

' FORMAT  ( 1 C X , * M P,D  F l?’j^  I»  CDI,  CDF,  CP(OANAGED),  DANCD( I > J,1 ) «* 

LFrFMAT  ( 5 X/  < NOPF^E ) J » I,  K t XI  t C£FF,  CPF,  SUMC  » ♦, 

[ 313 1 A F 1 0 » 3 ) 

FORMAT  (PCX,  * PAKCPUfJ.R)  « * , F10.S) 

FORMAT  ( 1 U X , * M pc  c 3,  J , It  K,  XI,  CF c F , CPA,  SL'NO  * +, 

L 313,  AF1C.3) 

FORMA  1 ( POX,  * n,MC0(I,J»2)  » *,F1G.5)  _ „ v T nrcr  * 

format  { l c > , ^ rr p 5,  rktrook,  'l-cscnjc,  j,  j,  k,  xi,  oeff,*, 

I * OR  A G , SLMCD  «*,  312,  2FE.3,  PHlO.f) 


OEFF,*, 


FORMAT ( 10X , < N pc f A,  P?PT»l CFn,  SI  PE fSGNIC,  j,  l,  +, 
*pAwfP(I,J,K)  * 4,  ? 1 3 , F 1 0 , 5 ) 

* j,  i,  PAKf-rn,o,5>  • *»  ?i3,  fij.5) 

4MP0F  5,  I A 0 ( A T E D , J,  I,  K,  x,  crc,  TRAC,  *, 
* SUNCf,  CPMK  «4,3I3»FP.P,FF.A,tFll,f,F6.3) 


‘FORMAT (20X, 


FrR.MAT{?CX»  * J , 3,  D A N C T ( 1 , 0 
FORMAT  ( 10X,4MP0F  5,  HOI  A TED, 


CAN.crn,j,5) 


F10.5) 


1 
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5041  FORMAT  ( 10X*  *MOOE  4/  J*  I#  K>  X*  DCDO*  COO  • ♦ , 
1 313*  3F10.2) 

5C42  Pn?MA1(20y>  * CCMK*  DAKC0CI>J>^)  • ♦ * 

5061  FCRMATtSX*  *KC'PE  6*  J,  I,  K*  Y 1*  CEFF* 


1 


F10.2»F10.£) 
r R A 4 * S l1  M C G ■ 


♦* 


5071, 

5111' 


5142 


1 


313*  2F 1 0 . 3 * ? F 10 • 5 ) 

FORMAT  (lCXtAKPOE  7*  J*  I*  RMAX*  R N 0 S £ * CP  AC  1 > DRAG2*  + * 
r„r  *CC1,  CP2,  PAMrp<I,J,7)***  212*  4F5.3*  3FP.5) 

FORMAT  (10X*  *MC.f)F  11 » J*  I*  CFlDAMAGEr  ) * m*  C0F>  PCD*  ♦ » 
*XM,  MYC  C(UJ,11)**,  ?I3*4Ff.5*  F6.3*  F <3 . 5 ) 

MOPE  12*  ICV  VELOCITY*  J*  I*  K*  XI*  LFFF**, 
SWFXCC*  DRAG*  5LMCCL***2T3*3F7.?*7X»2Fi?,5) 

rPOF  12*  HIGH  V£l.  , J*  I,  K*  XI*  C f «=  F * * * 
SWPXPC*  X M * DRAG*  S lilCDH**, 313*4  F 7,3*  2F8.5) 

MC-FE  13,  LCW  VEICCIT'i,  ,i*  I,  k,  XT,  C f F F , ♦ » 
SVPXOC*  DRAG*  SUMCCL«*,2J?*?F7.3*?X*RF8.5) 

MCFE  12*  F7CH  VEl.  . * J*  I*  K,  XI*  CEFF*** 
SW'FxrC*  X M * C F AC,  SUMCPH«< * 2 J 2 , 4F 7. 3*  2F0.5) 
FORMAT  (10X**Mr^E  14,  yEL.^J*  1*  K*  x*  priX*  yLCH*  CCDO,  ** 

e C K M A T ( 1 0 X * + M.  fi  r [ 14*  HIGH  V F L T > J > I*  K*  X*  HCX,  XlOH*  PCrC,*, 


5121  FORMA  T < 4 X* 

5122  FORMAT! 4X* 


1 

5131  FORMAT (AX, 

5132  FORMAT ( 4 X , 


5141 


5143  F OR “A  T ( 20 X* 

5151  F0P-AT(4X, 

1 * 

5152  FORM  AT ( 4 X, 

1 ♦*!■, 

5153  F0PMAT(4X, 


FORMAT (4  X j 

l 

FGRMAT ( 4 X , 

L 

F0RMAT(4X, 


5154 

5155; 

5156 

5161 

5171 


CPCH  **,  3 T 3 * 5 F 7 * 2 ) 

* Cr  VK  * Sl'^CrO*  DRAG  * * * F 1 0 • 2 * F 1 C . 3 * FT0.5) 
^ODF  3 5*  FVCTPUCer-,  LOv.  V F L . * .'*  I*  K*  CEFF,  *, 
OkAGL,  SU^COl  «♦*  313*  FS.5*  IY , 2F6.E) 

4MCFF  15*  pPrTRlCtr,  FjCH  VFL.*  J*  I*  K * CEFF,  *, 
ORACH*  FL'MfCH  »«*  313*  4FS.6) 

<MCCE  15,  FFTTRLDED*  LOW  VEL.*  50PER5CMC*  + * 

+ J*  I*  SUKCPl  **,  2 T 2 * F10.5) 

♦MOPE  15*  P0CT«lFfr,  HIGH  VEL 
*J»  I*  X*  X«,  PF.AG*  SL'MCDF'M* 

* M C C-  F 15*  I m-  o E a:  T F D * l CV  VEl 
♦COOL,  PRAG*  SOKOL  «*,  313* 


*MKF  15*  TKTFNTEF 


.*  JTPEPS  CF  IC* 
313*  2F1C.5) 
..*  J*  I*  K*  XL* 
2FP.2,  2FF.5) 

J*  I*  K*  XH* 


♦ » 


• * 


' v/  a#  i'  / r ' r 

2 F 1 o . 4 , 2 F 1 4 . p ) 
CRAG,  SUMCD  * + * 


1 


5173 
517  4 


I 


, HIGH  VFI 

’•CPCH*  DRAG*  SOACCH  * ♦ , 212* 

FORMAT  (1CX**M  POE  16,  ,!*  I,  K,  XI*  C-t  F F * 

31 2, ?F  f , 3*  2F10.5) 

FORMAT!///, 30X,AMPf'F  17,  XMACH  * *,Fil.5* 

/ * 10 X*  ♦ SMUPF*  LELP*  C°ip*  CRAGIE 

/ * i o x , » r K* r f r * Chari*  rghk,  celp* 

+CKAGTE  * <*Fll.O*  6F1C.5) 

/ * 1CX,  * 0 P r K * CHCR''*  A '•  F T * CF,  CRGTTP  * **?F)0.4) 

/ * ^ 1 CX*  c *r R A GLE*  CRAGTF*  PPGTIP*  DA MC C (1* J* 1 7 ) • ** 

/ * lCX,i"RAC  PIE  TO  MISSING  SUtr/CF  PARTS*, 

/ * 14X*  + I TPTAl  T R AG  CP  EACH  SIPFACE  PAMCC ( T* J* 17 ) * 

*/*  ! 1 2 X * 12*  12X,  FIG. 5*  1 2 X*  F?.5)) 


5172  FORMAT! 


* ** 
CP* 


4F1G.5) 
C F 1 , * * 


PORK  AT 
FORMAT 


3175  FCVMAT! 


END 
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SUBROUTINE  v.PITE(J> 


£********.**** 

£+4*4*4**44*44 

c 

COMMON 

cr^  ('on 

COMMON 

1 
? 

3 
A 


V P I 


ALL 
T E 


MODES 
S T 


ATEMENTS 


444+4***44***** 
4**4 *4**4  ****** 


/INPUT/  A ( 3 C E 1 ) 

/PLKTTL/  TIUF(fc) 

/NL-CCUT/  CAMCD(?>17)>  SYM  (7,17),  CCPMIN,  , , 

A L P ( 2 1 ) > CL(2i)>  CP(21)>  C M ( 2 1 ) > CIT(?1)>  ^.COTJ?!)* 

CIP(?1>,  CPP(21)>  Cf'P  ( ?1 ) > CITP(21>#  CDTP ( 21  )> 
RCLA(6),  OX  AC  * 

CFO  LI  (21)*  Cr.PT(21>,  *3(2),  XA(2) 

DIMENSID6  CDPCHIO*  CfSl'P(lu)*  co^orjf  (2C)>  

1 FM-SU®  V ( 20  ) » AlT(2u>,  C L l C ( 2t! ) » CLHI( 20) > IDAM(20)> 

2 ENA«f(7),  S N A M f (7  ) 

EQUIVALENCE  ( A ( 1 ) * KP-tO  YS  ) * ( A ( 2 ) * NNAC  ) * ( A ( 3 ).»  N'PNL  S ) » 


(A  (A)*  K-t-T  ) * (A(5),NVT)  >(A(AP1),6SUFV)> 

(A{AQ2)*HCLAS»»  (A(AC3),FMSU»V(in# 

(A(S13),  At  Til)  )>  (A  (E73),CllC(l)  )> 

<A(5E3  )>CLHI  (1)  >,  < A ( 1 6 A 2 ) * ICANd)), 

(A  <3U)»FNAK.E  (1)1,  (A  (177)  >SNAMF(1)) 


N'PODS  = N-eOOYS  4 KMC 

NSl-P  * N'PNL  S * NHT  ♦ NVT 

JjJ  - irAMl)  + I D A * ( 2 ) + I DAK  { 3 ) ♦ IDAM(A) 

1 0 A M ( 6 ) 4 10aM(7)  4 IGAM(e)  4 1 r AN  ( *7 ) 

( TITLEtn  * I « 1,6) 

F A S L ® V ( J ) 
re  TO  AC 

(P.NANE(I)  • I * 1 » N P C P S 1 


I T A M ( 5 ) * 

i r a (a  ( io  i 


VcJTE(t»lCO(>) 
V R I T f:  (6,  10C1  ) 
I c ( J J J . E C . 0 1 
VP  IT? (6,1002) 
IF  (IPAM  1) 
IP  (1GAM 
IF  ( T C A y < 
i - < 1 C t-f  ( 

IF  (1.0  A JM 
1 s (ICAAM 
JF  ( 1 0 A A . ( 


C.l) 
2) .FP.l) 
?) .f 0.1 ) 
A) .EO.l) 

5)  ,F 0.1) 

6)  .EC.l  ) 
7 ) . f 0 . 1 ) 


VP) TF (6*1003) 
VP  1 T F ( 6 * iOOA ) 

V R 1 T r u >1005) 

V P I T ( (£>  1006  ) 
VP T If (£>1007) 
VFIT> (6,1006) 
u-F  ITrU  ,1C09) 


( DAMC  P ( I > 1 ) 
( C A 6 C C (1*2) 
»04*cr( J>3) 
(P-ANCr  (I, A) 
(CAA'CT  ( 1,5) 
( C ANC  C ( I > 6 ) 
(PANCC (I>7) 


I =1, NPCDS ) 
1 = 1,6  POOF  ) 
I * 1,  6 POOS') 
I=i,*P005  ) 
I = 1 > NPOD  S ) 
1 = 1, NPCDS  ) 
I » 1, N POD  S ) 


10 


20 

30 

AO 


SUM  DRAG  CN 
pn  10  I = 
COBOD ( 1 ) * 
CONTINUE 


EACH  P COY 
1>  10 
0.0 


I * 1,  NPCDS 


PO  30 

SUP  * 0.0 

DO  20  K = 1 > 
SUM  = SLM  4 

CONTINUE 
CP-EGO  ( I ) « SUM 
CONI  I NL 6 
VP ITE ( 6> 1C10) 
JJJ  


10 

DA6CC(I,K) 


l>NPCr>P) 


1 


(CPPOC(I)  > I ......  , 

•IT  AM(ll)4lPAvn>,)  + IDA|4{13)4lCANnA)4lDARn&)4 
IOAN(  16)  4TDAN  (17)4  IDAMC8  14IPAN  < 19  )4I0AM(  20) 


IF  (JJJ. EC. 0)  CO  TO  EC 
VP  ITE <6,  1 C 1 1 > (SNAKE (T)  , I = 

T c ( JP-AM n ) ,60.1 ) Vc  TTF (6, 1L1 2 ) 

“ " ‘ VR1TF (6>  1C  13 ) 

V RITE (6,1 01  A) 
V P IT F (6,101 5) 
V R IT  :■  ( 6 , 1016  ) 
VP  ITE (6^1017) 


IF 

IF 

Jr 

IF 

IF 

IF 


1 , N S U F ) 
<rA.Ncrn,ii) 

(I  PAN  (!?'), rC«l)  WRITE  (6,1C13)  ( 0 A p C C (1,1?) 
(IDAN(13)  ,E0«1)  V R IT F ( 6, 1 01 A ) ( f A MCC ( 1 > 13 ) 
(TTAMdA)  .FO.i)  VP1TF{£,101  5)  ( C A n-CC  ( I,  1 * > 

( IPAMIS)  .EC.l)  VRIT?(6,  1016)  (PAMCC(J»H) 
(IPAM16)  .FC.l)  WRITE (6,1017)  (0A6rP(  1,16  ) 
(ICAM(17).FC.1.ANT.N°NLS  .fC.l)  V FITE (6, 101* ) 

1 (PAMrn(T,i7) * l * 1 , N S • ' P ) 

IF  ( I G A M 1 7 ) .EC.l.oAr . N r KT  5 .60.2)  WRITE  (6,2001) 
1 (0A'VCD(I,17>,  I * 3,  NS  UR  ) 

SI/M  DR  AC  CN  FACH  SURFACE 
GO  50  1=1,  10 

rr>SUP<!)  « u.O 
50  CONTINUE 

GO  70  I ■ 1,  NS  UR 
SUM  • C.C: 

PC  60  K =11,17 

SUM  * SL'N  4 PAKCD  ( I » K ) 

60  CONTI NLF 

CGSUR(l)  • SUM 


, )»1,NSL'P) 
, 1=1,N«LP) 
, I =1, N S L R ) 
, l.=  1, 6 SLR  ) 
, 1 « 1 , N 5 L P > 
, I»1,NSLP) 


DAMCD ( 1,17), 
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fioo  o nn  ooao 


70  CONTINUE 

vpite (t, igir)  (crsi'Mi)  , r * i,nsi.p) 

SUN  OS  A G ACCORDING  TO  NODE  OF  0 A NAG  E 

R 0 D I E S 
80  DO  IOC  K « 1,7 
sun  * c-.o 

ro  90  I ■ l,  f. pc  ns 

5 UN  » SUN  + P/MCD ( I » K ) 

9C  CONTINUE 

CP NODE (K  ) « SUN 
100  CONTINUE 

SURFACES 
PC  1<C  K « il,  17 
SUN  *0.0 

PC  110  1*1,  NSl'R 

SUN  c SUN  + DA  *C  C ( I , K ) 

11C  CCNTHlf 

CCNCDEtK)  • SUM 
12C  CONTINUE 


WRITE (6,1020) 

eel  - ctncpf n ) 4 cnNcr  f mi 

CP2  * C P N C 0 E ( 2 ) 4 COMCTEUE) 

CC3  = C0N0DM3)  4 CPNCPE  ( 13  ) 

CD A * CCNCPr(A)  4 CPF  CPE ( 1 A ) 

CCS  « CONCPf (5)  4 CCNCPE (15) 

C06  * CCNprif  ( f ) 4 CCNCDE  (16  ) 

C P 7 * CON-OPF  ( 7 ) 


CDF  = CON  CDF (17) 

VR ITE (ft,  lu21  ) CC.NrOE(l) 
V«ITt  (o,1022)  C C yf  OF { 2 ) 
VPITF  (6,1C2*)  CONCPF  ( 'A) 
V A ! TE ( fe, It  2A ) rr^rrF(A) 
WC]TF(6,lC2f  ) CmOHS) 
V>®ITr  (N»)G?6>  cr  v-c  PE  { t ) 
V°lTC(fc,l027)  CC-NCDE  ( 7 ) 
V'R  1 T F ( 6,  102 R ) 


crNPD?  cm, 

CPNMCE (12), 
CC-NCDE  1 1.2), 
m-orECiA), 
CLNCr?(lS), 
CCNCDE (It), 

CDNCP6 ( 17 ) , 


SUN  -fCTAL  DANAP-E  CRAG  ON  PCCIES  AND  WINGS 


A »>  A 

ppp 

C P 1 3 G 

AAA 

6FE 


■ C.O 

■ C.O 

i * i,; 

> AAA  4 
r PEP  4 


CONTINUE 
CCC  * AAA  4 
V'R  1 T F ( 6,  lc2C ) 
CCONIN  * CCC 
rr-3^-AT  { IMi, //> 
F 0 R Ni  A T ( ll,?\ 

1 / / , 3 2 > 

F CRN AT  (/,  SX 

FORMAT  (/,  sx 

FORMAT  ( SX 
FORMAT  ( SX 
FORMAT  ( 5 X 

FPRRAT  ( SX 
FORMAT  ( 5 X 

FORM.  AT  ( SX 
FORMAT  </>  SX 
FORMAT  (///, 5> 
FCFMAT  (/,  SX 
FPPNAT  ( SX 
FORMAT  ( SX 
FORMAT  ( Sy 
FORMAT  ( SX 
F C 5 M A T ( SX 
FORMAT  ( SX 
FCRKAT  ( SX 

Format  </,  sx 

F CRM.  AT  (////// 


CONPCECI) 

CON  ODE (1410) 

e p p 

AAA,  E F,  I? , CCC 
21V,  FA  3 >/ ) 

X, ♦SUMMARY  OF  DAMAGE  EFFFCTS  C':N  MINIMUM  Cc  AC*, 


+ A A C K *4,  F5.2,  ///) 

* P COY  DAMAGE  MCDE  4,  AX,  7A1C) 

♦ RPL’CHNFSS  4,  ?x,  7 F 1 C , S ) 

♦ FWC-FAC1NC  STFPS  4,  ?X,  7 F 1 C . f ) 

♦ AFT-GACINC  STFPS  *,  2X,  7 F 1 1 . S ) 

* H 0 1 F S 4,  ?y,  7riC.S) 

4UAVINFSS  *,  ?X,  7F1C.S) 

*FPf>T  l'P  FRANCES  **  ?X,  7 F 1 C . S ) 

♦ PLUN'TNFSS  *,  2 > , 7F1C.S) 

*TrT.PFAG,FA.PC-PY  ■*  *,  2X,  7F10.S) 

♦SURFACE  DAMAGE  NODE  ♦,  AX,  7 A 1 C ) 

*F  PUG FN  ESS  4,  ?x,  7F10.S) 

♦ F vp-F  A C T N'C  STEPS  *,  ?X,  7T1C.S) 

♦AFT-FACING  STEPS  *,  2X,  7F]C.‘) 

♦HOLFS  ♦,  2Y,  7=10. S) 

♦ I A I N F S 5 4 f if,  7F 1 C .S  > 

♦ PRUT  US  FRANCES  ♦ , 2X,  7F i C . 5 > 

♦MISSING  PARTS  »,  2X,  7F3C.S) 

♦ HSSING  PARTS  4,  2X/F10.S,* ’ 

SFly.b) 

♦ in. DRAG. FA  .SURFACE  *♦,  2*,  7F1C.S) 

17>.*NfT  drag  FRCM  RACK  MCDE  CF  TAMAGF4, 

cRX, *E  Cn  1 F S SUPFACtS  FCPIFS  4 SURFACES*) 
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mm wmm 


f 


1021 

FORMAT 

( 

EX# 

* ROUGHNFSS 

*> 

2F10.S»F1£ .5) 

1C22 

FORMAT 

( 

5X, 

* F V 0 - F A C 1 ^ 0 STEPS 

*» 

2F1C.E/F 16 .5) 

[ 10-23 

FORMAT 

( 

5X, 

*<FT-FAC1NG  STEPS 

♦ > 

?F3o.5»FH.i> 

102  A 

FORMAT 

( 

5 X » 

♦POLES 

♦ » 

2F]0.5#flf .51 

1C?  5' 

F0RMAT 

( 

rx, 

♦ WAVJMTSS 

* > 

FFK.f  *F1£  ,‘) 

! 102  6. 

FORMAT 

( 

5 X> 

♦FROT0pFF ANCFS 

i, 

2F10.E»  Tie .51 

' 1 o?  7 

R 0 A M A T 

( 

5 X> 

♦PI LktnfSS*>12X>F10 

.5  »6> 

» ♦ R / A ♦ > F 1 5 • f>  1 

i 1026 

FORMAT 

( 

5X, 

♦ FlSSIf.O  PARTS 

♦> 

MX,*K/A  ♦ > F 1 0 . T 

I 102  9 

I 

j 

FORMAT 

R f-  TOR  N 
END 

Ut 

5 X» 

♦TOTAL  DAMAGE  CRAG 

*> 

2 F 1 C . 5 > F 1 1 . 5 1 

i 

\ 
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non  o n o n o n r>o  oooo 


SllPRCUTINE  CFK3ntl»PN0»’T/XCLl#XGL2»PKl>RK?,Pilf,7t'ACH»  C F P ) 

CALCllATFf  SKIN  PCJCTIPN  CCEFF.  F OF  A PLATE  V 77  M IP  TO 
THFFE  ZONES  OF  FOLGHNFS? 

C F < X > Y » « AKAXI (T*F*«R*C.A?C/(ALCG10(Rf  L»X*T**i.f  7*F>}**2,56» 
1 T/U.P9  -U.f  ?*/LCGlC(X/Y)  )♦*?.'  ) 

SCF(X)  « T*F**?*C.A3G/(ALr;(‘10(PN'L*X*T**l.t7*F))**2»56 

SCFP(X)  » T*F»*?*c.43r./(tL0CK{5NL*X<T<41.fc7*?>)**2.56 
1 -T»P*F*c«A7PC7/(ALrGiO(PNL*x*T**i,t?*F)J*+3.5f 

R C Fp  ( X > Y ) « T/U.p?  +i.E2*itnG10(X/T  ))  + + ?. 5 
1 -1 .7f  Pc  *T/( l.f  9 +l.fc2'ALC01C(X/T  ) ) ♦*  3 • t 

t ■ i./n.+c.m*2MCHM2) 

F « 1 .4C.C3916*2NACH**Z*T 

RNL  * PN  OFT 

R K 3 » P3K 

C FR  . SfP(XL) 

Ic (FKi.GT.C.O)  CFF  * rF(Xt>PKl) 

IF  (XCLl.EC.C'.C.A^O.XCLZ.EC.C.O)  RETURN 


if  (xru.GT.o.n  ft  to  kc 

INCFEASFC  ROUGHNESS  STARTS  AT  LEADING  EDGE 

XI  « XL  * XOL? 

CFR  . S(F(X1) 

IF  (KK2.GT.C.C)  CFR  * CF(X1>PK2) 

IF  (XCL’.Gc.l.O)  RETURN1 


ICO 


5 

10 


20 


t 
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J « ? 

C F y 1 =.  C.F  R 

CX  « X] 
RK  - PK3 
GC  TC  10 

CGNTINUF 


■ C F l XI » RK  A ) 


C F { OX / PK  ) 

« FCFF(DX,RK) 

Ic  (OPS. EC. 0.0)  GC  TO  200 

oxi  e nx  -(nx  4C f x - xi  mxn/ops 

IF  (0X1.LF . C . 0 ) 0X1  * 0.5  *0X 
El  * APS (0X1  -CX) 

E2  * C.O-JOl  *XL 

IF  (Fl.Lr.c2)  GO  TO  20 
TX  * CXI 

CO  TO  10 

I F ( J , E c , ? ) Cr  Tr  30 
XI  * OX  +(XOl 2 -XOL) ) +XL 

IF  ( XOL 2. C- 6.1.0  GO  TO  2 5 
RK  4 * RK2 

PK  * FK  3 

J • 2 

CD  TO  5 

INCREASE  0 ROUGHNESS  fnOS  AT  TRAILING  fFC-E 

XP  « XI 

P K 3 « PK  2 


XI 
F K A 
PK 
J 


XL  « 

f K 1 
P K 2 
1 


XOL  1 


CFX1  » SCF(Xl) 

IF (RKA.GT.0.0)  C F XI 
ox  * XI 

CFS  « SCF(OX) 

rex  « CFS 

IF (PK ,GT .C .0)  CFX  * 
0°S  * SCFP(OX) 

Ic  (CFX.K-f.CFS)  C-PS 
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<?0  TO  35 


C 

C 


-C 

C 

C 


?c 

35 

200 

300 


XP 

CFXP 


» CXI  + XI  M1.-X0L2) 
« SCF(XP) 


IF 

CFR 


(PK3.GT.O.O)  CFXP  « CF<XP>PK3) 
» (XP/XL)  * CFXP 


CC  TO  300 


VR1TF  ( 6>  lOCu ) ''X,  CrY,*< 
CFR  « O.C 
CF  XL  ■ SCF(XL) 


1000  FOR MAT(]CX*SLPFOU TINE  CFK 3 VILL  NOT  CCN VE CfiF +/1X# 3F i 5 . 7 ) 

Pf TORN 
SNP 
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r>oo 


r 


SllFFOL'TINF  *i****4#,*****t*44  + «4  ««iMM4M4M4M4 

£44444444*4  *444<4444444 

C‘**^  4 4444  CPfFCT  CP  KT.c.MFf  PAPTF  nr;  LIFT  CL^VF#  *'**44  444  4.4 
£4*44444444  PCLAP  SHAPF,  AND  PPMFN'TS  *4*44***4444 


COMMON* 

COMMON 

Cr>.*PN 

CCPFCN 

CCMMCN 

l 

COMMON 


/ IMPUT  / 4(3081) 

/fLYPOT/  F ( ?2  3 ) 

/me/  mo 

/EtxfPT/  KEPT  M(  50) 

/?  L KCL  A / 5PLAAF,  TOCL>TFP>  ARp,  F K$  T P>  CLP# 

r.  r,  o p»  _ r r.  c i c . r.  /»  . c r>  r r n 


FPSl# 


5PFFP 


common  /nl'cplt / mem, l?),  syv(?#17),  rcrMir, 

1 a l p ( ? l ) # ci(,?n»  rrm)#  r ) < r 3 > # mi?i)» 

2 CL  0 (21 ) » CDP(?D#  CMP<?1>#  CLTP(Pl)# 

3 pci  a < 6 ) > rxAC,- 

4 C P 0 L L ( 2 1 ) , CLP  T ( 2 1 ) # X3(?)#  X4<2) 

PI*EMSICN  PWlK*f{?0)»  FPSUCV(rO)#  1 PA  M 2C ) 

1 * OC  L A 2 ( 2 ) » D * A C 2 ( 2 ) > DK2(2)#  CC  L AT ( 2 ) 

2 » SUR ( ?>  30 ),  rSL-P(?>100) 


FCUIVAl tMCE 

( A( 3<  t?) 

pyjNC-(i) ) 

/ 

( F ( c4) 

9 

XK  ) , 

1 

(P  (63) 

R 

) 

; 

( PI  5 = ) 

9 

CIA  ) » 

2 

(C  (6) 

svpoc 

) 

9 

( C.  ( 2 4 ) 

9 

AF  ) , 

3 

(A( 4ci) 

A’FliPV 

) 

9 

( A(492) 

9 

KtAS)  » 

4 

(C  (4  ) 

APLAN 

) 

9 

(C(l) 

9 

P.P?  ) , 

5 

( C ( 2 ) 

PPP 

) 

9 

(C  ( 3 ) 

9 

CP  ) , 

6 

< P ( 56 ) 

CMO 

) 

9 

( r*  (60) 

9 

ALT  ) , 

7 

( P ( 06  ) 

clal 

) 

9 

( C ( 1 6 ) 

9 

CTX  ) > 

e 

( C ( 2 5 ) 

SVPLF 

) 

9 

( C ( 1 5) 

9 

rex  ) > 

9 

(A (493) 

,Frsi pv(i ) )> 

(A(12) 

9 

CM  AC  ) 

l 

, (A ( 1642) 

9 

irAr(i)  > 

9 

( A ( ! 1 ) 

9 

SPLF  ), 

? 

( C ( 2 ? ) 

9 

XH 

\ 

• 

9 . 

(P(Afi) 

9 

EF  ># 

3 

(B(9f) 

$ 

Cl  AT 

) 

9 

( A ( ? ) 

9 

NPN  LS ) , 

4 

( A ( IF  A ) 

> 

51  = ( 1> 1 ) ) 

9 

(4(23(2) 

>PFlc(l#l) 

5 

, <=(101) 

9 

HSTAP) 

COP MGK  /PLKPAT3/X.wAfH?  (17)#  CPM* 3 < 1 7 ) # 
] xl  nw?  ( (.)  , nrx3(5)  , 

2 vce?(t)  , r l r 2 ( 4 > , 

3 Yf  A CH3.  (13),  C FP  3 ( 1 3 ) , 

a 7PAfH?n?)>  eptid?)  , 

5 YLf,HA(l?)  , M p Y a ( 7 ) , 

6 P/TJP3(f)  , U M A C M 1 C ) » 

7 Xinr<6>  } VMACH<6)  > 

e 05 Tf i(f)  , A«1  (5)  > 

9 TFTAP(f)  , SVPCC’IS)  # 

1 FT  A 13  (t  ) , Cl A3(f  ) , 

2 0 F T A A ( f ) , A P A ( 5 ) , 

3 Pn/5(f)  , 5 A p c C 5 ( 5 ) » 

4 rTA)f(f)  , CLAf(fc)  , 

5 0 E P f*  ( 6 ) * Cf.CC(f)  t 

COMMON  /BlKPATA/DFTA] 1(f)  , AP  1 1 ( t ) , 

1 nr  TM  2(f)  , r>WOC  12(5)  / 

2 FTA113K-)  , 

3 r.fTAiA(t)  , A P 1 1 ( 5 ) p 

4 OFT A 15(F)  , SVOC 1 c ( 5 ) t 

5 FTAilcCfc)  t 

6 Pf OC  7 ( 5 ) , 

7 orrrm)  / 

8 » F l P ] ( 6 ) , 

9 FL0?<6)  , 

1 ZAP  < 10 ) , 


crr?(f»5)  , 

X A 3 ( f » 4 ) , 

crr-4  c i2,7»  , 
PPAC3(F>10)» 
DPAC.  4(f#,t)  , 
ei/l(f#f)  , 
Cl  A 2 ( t # 5 ) , 

01/4(6,5)  , 

CL 45 (6*  5 ) > 

Cl  /Cl  A (6,6  ) 

XAri(6,5)  , 

> AC  2 ( t , 5 ) , 

X / C 3 ( 6 ) , 

X A C a ( 6 » 6 ) , 

X AC  5 ( 6, 5 ) , 

ymm  , 

X AC  7 ( 6 ) , 

XA.CF  ( f. ) 

Cl  /**!(/)  , 

FFl-?(6)  » 

xri  a do) 


5VPCC  = 

re  oi  i 

KCLA(I) 
CTN-TINLC 
PC  L A 

06  * 
OXAC 

Or l AT(1) 
rC  L AT ( 2 ) 
CCLA1  = 

ctcla?  » 


svpcc 
* 1 » 6 

* O.C 

O.C 

0.0 

0.0 

- 0.0 
* 0.0 

C .0 
0.0 


57.2=58 


POT (?1 ) 4 
C0TPJ21), 
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CCL  A3 
C C L A A 
CCLA5 
rc  c Aft 
r*ACi 
COX  AC  2 
OX  AC  3 
CXACA 
OX  AC  5 
PXACt 
OX  AC7 

rxAce 

x?(l) 

X 3 ( 2 ) 
UMl) 
XM2) 

DC  LA  2 1 1 ) 

ort A2(?> 

TXAC2  ( i ) 
CX  AC 2 C 2 ) 
OKI 

c*?n  > 

0*2(2) 


c.o 
0.0 
c.o 
0.0 
0.0 
c.o 
c.o 
0.0 
c.o 
0.0 
0.0 
0,0 
0,  0 
0.0 
c.o 
c . c 
* 0.0 
• 0.0 
«o.e 

*C.0 

« o.c 
• 0.0 
• 0.0 


TP  (KPMNT(29)  .CC.l  ) 
IWPJTt  (^ICAO)  FJ*SIBV(J)» 


( P(I)>  I «1 >223  » 


F F AD  FRCfi  *t 


XI-ACH  * FA'EUPV(J) 

AAA  * A R S ( 9 ( 1 ^ A ) - X M A CH ) 

IF  ( A A.  A , 0 T , 0 . C 0 1 ) VPITf(MlCOl) 

1001  FC«^AT  (//>? 0X>*  INC?RRFCT  *ACH  NOME*  WAS 
1 «TAPF  I'M  T M..KFER  10  ♦ ) 

IF  (I0AM17)  .rc.O)  GP  10  Ht 
C 

r **  + * + + * + **♦***  + * OEFIN'F  IHCP6AFM  IK  tlfl-CLRVF  SLOPE 
f ♦♦♦»♦***♦  + *♦*♦  + ♦ F pF  OAPAGFT  l.F.  AND  T.E.  > CCLA1 
C 

XXX  . C.O 

YYY  * C.O 

IF  ( OV!lk  G ( 3 ) . F O.O.C  ) GC  TC  110 

C C L A 1.  « 0LM(P'*UC(3)>  AF  , DET  A 1 > A F ] , CIA1* 

rnciA2«  ci^nnwiNf-ot#  'ipcc*  df.ta?>  swpcc2>  cla2» 

CALL  LNIPICV INC (2)»  f C L A 3 , F T A 1 3 # C L A 3 j it  A ) 

>>.>  * 0CLA1  + C0CLA2  + C C L A 3 

TF  ( PWJNG  ( A)  . L T , 3 • ) XX  X « O.f.  * XXX 
110  IF  (OWlf  G <<5».=C.G.C)  CC  If1  1?C 

TCLA4  * Cl.  NT  (DV  ING  ( 9) » AF  , CFTAA,  ARA  , CLAA, 
P P L a E = r.LN'TIPVlA-f  (C)  ,SVPCC#  TEIA5>  SAPCC5,  CLAS> 
CALL  LNT  P(OWJNf.(PJ  , OCLA  t,  FTAI6,  C L At  > f,  A) 

YYY  * CCLAfc  + DGUt  4 FGLAt 

IF  (OWINC-CIO)  .LT.3.)  YYY  - O.f  * YYY 


!,»{•»?»?> 

6,S,t>2#2) 


fc>t>fr>2>2) 
fcj  S" >fc>2>2  ) 


C 

C 

r 

C 


120 


PC  l A 
DC  LA  X 


PEI  TA-CI.  A-TOTAL 
XXX  4 YYY 


C L A p L F IS  Ct-ALPHA  c/TTP  TC'  ACCCLM  FCF  CPCPD  CF  CUTOUT 
CLASLE  « CLNTIDUNGC?),  Pv.JNG(l).  rPC-3,  PCPC>  Cl  4CLA,^>9>6>2>?) 
CL  AF  Tf  = PUjT(PVTAG(C)#  r k J MG  ( 7 ) > C F Cc  > r CCC  > CLA‘CLA.fr»5->«>2>2) 
IF  (OMffltl.lT.M  ClAHF  • CL/>Fl(-  +C.F  < (1  . L-f  L A c L F.  > 

IF  UMNGdM.LT.r.  ) CLAPTE  » CLA.<?TE  -K.t  * (l.w-ClAPTF) 


PPTfE  DENOTES  DAHAC-EP  C P I FIG  CATION 
* CLAFLF  ♦ ClAMF 


CLAP  = CIA-PFINF, 

CLAP  * (CIA  + r.CLAX) 

IF  (K PR  I NT <29  ).FC.  1 ) 

iVPITc  C ft  > 1 C.  1 0 ) FA  SL°V(.!)/  DCLAU  P0CLA2/  PCLA2» 

1 PCUt,  CLARIF,  CLARTS,  CLAP 

rrtAi  . cup  - nt 

DEFINE  LIFT  CUPLF  I A'p  f-  F N F N T PFCL'JPrp  FCP  eCll  TRIM 


DC  LA  A,  PC  LA  5, 


P r t A ( 1 ) « ( P L A 4 X X X ) 

PC  L A ( ? ) * (CLA+YYY) 

1=  (KPFJA.  T(2°).10.1) 
1WPITE  ( ft  > 1 C.  2 0 ) CCLA1 


TUPLE 
CL  AF  TE 


CIA 

CLA 


r i 4 4 * 4 4 * 4 4 4 **  4 4 4 4 OFF’Nf  iFPfOYMMl  CENTt 

C* «♦«♦♦♦**♦***+♦*  FOP  DAMAGED  L.E.  AND  T.C 
C 


SHIFT 
t PXAC1 


«M4<*(4>  J4444-4* 
**»*>M>M****4t** 


2M 1 


! 


XXX  « 0.0 

YYY  • 0.0 

ip  (0wi*“6<3) .fo.o.o)  or  Tn  no 

PXAC1  ■ PINT  (CV  UG(3>.  AR  »D(T*11»  AP  1 1 » X AC  1.  t.5.6.2.2) 
rcYAca  * cm<f''-nrm,HPcc»ctTAioSvcci2>  xac2.  t.5#f.2#2> 

CALI  IKTP(DV1NC(?) » PXAC3.  FTAJ13.  XAC3.A.  A) 

CALL  LNTPICWlNGm.  CXAC7.  CCCC7.XAC7.  5*  A) 

XXX  • DXAC1  ♦ O0XAC2  ♦ CXAC3  + CXAC7 

IF  (OVIKGIM.LT. 3.)  XXX  ■ 0.5  * XXX 
IF  (KPRIKTC?9).EC.l) 

lWt  ITF (6, it 3j)  P X A G 1 * COXA C 2»  0XAC3.  CXAC7.  XXX 
130  IF  (0W1KG(9).FC.0.PI  GC  TO  1A0 

0 X A C A « DLM(OvnCto),  A P .CFTA1A,  APIA  , XACA.  f. 546.2.2) 

CXAC5  * rtV!T{rvn:G(c),svPCC>f,cTA15#SVCC15#  vacs,  t.5»e»2»  2) 

CALL  LKTPIOVING  (M  » PXKf.  FTAI1A.  XAC t.  6.  A) 
call  LM  P ( PVT  NG ( 7)  # PXAGr.  nrr.CF.  XACP»  5.  A) 

YYY  * DXACA  4 OXACE  4 DXAC6-  4 OXACf 

IP  (OWING  ( l(i)  .1  T.3.  > YYY  « 0.5  ♦ YYY 
IF  (KPFI*<T(29).E0.1) 

lV>e!Tc(fc»iC35)  OX  A C A.  CXACS.  DXAC6.  OXACF»  YYY 
1 AO  CXAC1  « XXX  4 YYY 

IF  (KPP (KT(2R) .FO.li 
lVPlT£(fc,103tl  OXACI 
C 

0.4  4 4 4 4 44  *4  4 4*44  *4  ORPINE  IS’CSFKfM  J S'  SPAN  EFFIGIEK'CY  444****444444*4* 

0*4444**444*4'. 44  FOR  OANAGED  l.F.  AND  T.F  . 0F1  * * ♦* * 4 4 4 4 4 A 4 * + + * 

C 

C THIS  N.ETHOC  NOT  G.CKPLETE.  MEANWHILE  SET 

OF l « C.C 

IF  (OWIKG(1).GT.O.O.QB.CVIKG(7)  .C-T.C.C)  DEI  »-0.05 
r 

C++*444*4444*4+4*  DHFJK'F  INCPFNFNT  IK  POLAR  SHAPfc  FACTCR  * 44  4 4 4 4 * 4 A 4 4*** 

C*4******444*44*4  FOR  DAMAGED  L.E.  ANT  T.E  . OK]  4*4<44444’44*4*44 

C 

XXX  = 0 V I K G ( 3 ) 

IF  •(0WIA5C6J.LT.3.)  XXX  » 0.5  * XXX 
PP  » RM1.0  -XXX)  + 0.2*P*XXX 

EFP  * EF  ♦ 0 FI 

XKF  *{  1.0-PP)/ (CLAP  *57.2  «557f*SR6F/S  FLAK)  4 SP/(3.1A159*A»*EFP) 
XKF  « XKF  * (SFFF/SFLAN) 

r«i  « *KP  - XX 

IF  (KPPINT(2<?) .FO.l ) 

1UPTTE  (6.10A0)  R . FP,  E F.  EFP.  XK.  XKP.  DPI 


DEI  » -0.05 


£4444*  4*444***  44  4 DEFINE  dCRFNENT  TA  L1FT-CIR\E  StCPF  »*< 
044**4444*4444444  p CP  dfSINO  VING  T I 5 S . 0CLA2  *< 

C 

r.O  1 A 1 1*1.2 

0CLA2 ( I ) « 0-0 

n x a c ? (i » ■ o.o 

OK  2(1)  * 0.0 

DC L A T ( t ) . o.o 

1 A 1 CONTINUE 

IF  (OWlKGdl ) .EO.0 .0«AK0,CV1KG(12)  ♦ E C.C  .0)  FC  TO  1A£ 

G 

C LET  T«i  INDICATE  LEFT  WING 

C LET  1=2  1NDICATF  RIGHT  VING 

CO  IA3  I •*  1.  2 

OR  » 802  * 2.0  ♦ DVISGdO  + I) 

C 

C DEFINE  VARIABLES  RE-CLTREO  TO  CALL  SLPFCUTJNE  A EF  2 

TOfW  = C ( 1 2 ) 

ONSTR  * 0.0 

CLD  « C ( 13 ) 

cvi  * c-.o 

E P SI.  * 0.0 

SVP*C  = C ( 7 ) 

S«EF  * A(ll) 

PU  « 2.*  PH? 

8 U'o  * PV  - TP 

CTXP  * CP  - (SVP/RV)  * (CP-CTX) 

SPUM  « (CR+CTX)  * ov  / 2,0 
SPLAN2  * (CR4CTXP)*  F V f / 2,0 
SPLANP  * SOLAN  4 ( SPIAN2.  - SPLAN1) 

ARP  * B V P * * ? / FPIAKP 

TRP  « CTXP  / CR 


,4  ♦ * 4 * 44*4444444 
*44444t**444*44 
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nnn  r»r»o  rjr>o 


0 

« OCR  + 

FW 

rrep 

« p.  / 

F U P 

SREFP 

» SREF 

CALC.  INCPERENT 

CLAUP 

« 0.0 

IF  (OCBP.LT.l.C) 

CALL 

POTENT 

■ CLAWF 

- CLAW 

CALC.  INCREMENT  If  VORTEX 


LIFT-CURVE  SLOPE 


1.0 

C • C‘ 

XC  L A > 1C>  A) 
X C L A * 1G>  A) 


5 C N!  I C N * 1.0  / < $INt°t  .0/57.295  - 5 V P L c ) ) 

VHP K * 1.0  - OHACH-l.O)  / (SONICR-I.C) 

IF  ( X* /PH. LB . 1 .u ) V0®K  « ' ' 

IF  ( X .MA  C F • G T • SON  TC M ) VCPK  * 

CALL  LNTPtAP  , V0R1  » ZAP  , 

C/Ll  L N T P ( A R P t VfF2  , Z A F , 

VCR  TEX  * ( V C P 2 - Vf’Rl)  * VOFK 

CALC.  TOTAL  Cf.LTA  CLA  ON  ONE  VUG 

CCLA21I)  = 0.5  * ( P 0 T E N T + VCPTEX) 

T c (KPP  1MI2P)  .f  C.l.  AND.  I.EC.l) 

1 P 1 T E ( 6 > 1 C A 5 ) I 
IF  (KPK  iM  (29  ) .EO.l  .ANT.  I .EC.  2) 

1VF IT: <fc,  1C  At ) I 
IF  <KPPINT(?<5).E0.1) 

1 UP  I T £ (6# lOSv  ) FWP.CTXP.SFLANP. A»P>TRP, F L AVP.CLAU* 

? SCNICR.  VCR*.  c f‘  T E T . VCRTFX,  rri/?(l) 

PEPIN:  LIFT  CL'FIE  T N‘  C ® i NENT  PBOLIRED  FOR  P Cl  L TRJK 
RC  L A ( 2 + 1 ) = 0CLA2 ( I ) 


C * * **  * » * * « ♦ ♦ * **  * * DEFINE  A f POP  YN  AN. I C CENT  E"5  SHIFT 
FCR  HISSING  LING  TPS.  DXAC2 


.4...M********* 

< * + <.»  + **  + *****  + 


CALCULATIONS  PASEP  ON  IXPUSEO  WING 
CBAR1  * C.Nff>7»((  CPX+PTX  ) - (C*X  * 
CP  APE  « C • 6 fc  6 7 * ( ( CRX+CTXP)  - ( C < X * 
TP  ■ C T X / C c' X 

TRP  = CTXP  / CRX 

ET A1  = ,2333* (11.  *2.  ♦ TF  > / (1. 

ETA?  « . 23  3?  * ( ( 1 . +2.  ♦ TRP)  / (1, 

pcyo  ■ e u - P 
P.PEXP  * PWP  - 0 
Yl  - E T A 1 * PEXF  / 2.0 

Y2  * F T A 2 * FPFXP  / ?.0 

XL  El  * Yl  * TAMSVPLE) 

XLE  2 = Y2  * T AN  ( rU’PI  E ) 

IF  (XFACH.LT. 1.0)  CX 
IP  (XNACL.GF .1.0)  PX 


P T X ) 
CTXF  ) 


(CFX 
(CF  X 


+ CTX  >) 
♦ CTXF)) 


I®  ) ) 
TRF)  ) 


0 X A C 2 ( I ) * OX  / CF/P 
PX  AC  2 ( 1 ) * 0.5*  OX  AP2 ( I ) 

IF  (I.EC.l)  ) 3 ( .1 ) * Y 1 ♦ 

IP  ( J.FC.l)  X3 ( 2 ! ■ Y 2 + 

IF  (1.60.2)  X A ( ] ) « Yl  ♦ 

IF  (UPC. 2)  X A ( 2 ) * Y2  ♦ 


(X|E2+.25*CE/F2)-(XIE1+.?5*CrAR1) 

(XLE2*  ,5C'*CEAP?)-(XLE1  + .5C*CBAP1  ) 


PPP  * BC? 
DTP  + p C 2 

cr-r  * R02 

DOE  * p0? 


IF  ( K F P I N T (29J.F0.1) 

1UP1  TE  (6>  lGfcl ) CPARl,CBAP?,FTAl,tTA2#*Ul>XU2>0XAC2(T) 


*>(+****  + ***♦*  + 


C****************  DEFINE  I NT  p E NE  N T IN  SPAN  P F F * C T F Nf  Y 
c + <.***+***  + *♦****  FOR  HISSING  WING  TIPS.  Cf 2 

C 

C FCR  NCW.  ASSURE 

C? 2 * c.o 

C 

(■******♦♦*#♦****  + P E F INF  JNCPFRENT  IN  POLAR  SHAPF  FACTOR  *************** 
C**************i*  FOP  HISSING  WING  TIPS.  0K2  **+*♦*»+♦***+** 

C ^ . + 2 

Vv  2(1)  ’(l!('/(?^0*3.1A]5S))*((CR*rTXF)/(PVP*FFP)-(CP+CTX)/(p.V*FF)) 

PKclI  ) » CK  2 ( I)  ♦ (5FTF/SPIAN  ) 

CK2(  I)  • .;.1  * PR?  ( I) 

IF  (KPkIU(2C).F0,l)  , 
lWRITF.U.  1C6A  ) EPF.  OK  2 { I ) 
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H3  CONTINUE 
C 

CHmumumh*!  DETERMINE  F FP  PCTS  OF  M I S S J K G HC-FI7.  TAIL  **♦♦♦♦«*♦** 
C 

ire  or  irr  i « i,? 

oruTtn  - cut  * ci.o-  oviNtti3+in  - clat 
rciATU ) « c.s  + nciAim 
RriA(«+I)«  DCLAT(I) 

1 A A CONTINUE 


{•**♦♦♦♦**4**  + * 
0444*4*4444444 

c 

1*6  PCLAHO  . c.0 

r khcl  * c.o 

IF  ( ICANtlM  .NF.l) 


otFTNf  r r f fct  c?r  hgies  in  v tkc  r-t  uft-clfve 

SI  OF  F A NO  POLAC-SHAPE  FACTC.-F 


4444444444* 
4444  44  4 4 44  4 


C-0  TG  21U 


HOLE  AREA  * NC.  OF  HOUR  * IENGTH 
AFEAUP  « 0 R l F ( ) * R ? ) 4 OSliP  ( 1 * ? 3 ) 4 
A c E A L C * C SUF { i>  3 1 ) * rSl-°U*22) 
FLCH  AREA  = HCLF  A B E A 4 PPFPSITY 
FLO VI  = APF.AUF  * PEI  R (1*29) 

IF  (APEaLC.LT  , A P E A UP ) F LC-V»1 


* V,  T 0 T H 

rsut  { 1 * ? A > 

* CELF  ( 1 > 3 A ) 
FACTO0 


APKALG  * DSI'P<1*?9) 


FLCW2  * 0.0 
IF  (NPNLS.EO.l)  GO 
A c E A I; P * 0S1/R  ( ?*  32  ) 
ARFAlC  - r.SUR  ( 2 > 32  ) * 
e 1 1 V 2 « AREAL P 4 

IF  (APEALC.LT.APFAL'P) 


TO  ?uC 
4 C f U° (2*33)  ♦ 
C'Sl'R  (2*22)  * 

P E UB  < 2 , ?9 ) 

FICW2  = APEAIC 


CELF  l ? , 3 A ) 
0 SLlF  ( 2*  3A  ) 


200 


IF  ($YIM1*1A).K.1.C)  EL0V1  » 2. 
IF  (SYiv(2»lA). EC. 1.0  ELCV2  ■ 2. 
FLCV  » F L 0 V 1 + F LTV  2 
FLO'W  R = FICV  / (SPIAN/2.) 


* r SlIB  ( 2*  3° ) 

* FLCV1 

* F LC  W 2 


C 


210 


CALI  LNTFLFLCWF  , CLAFAC  * FLCl 
CALL  l N T P ( c L CVt*  , 0 E F A C * FL02 
CCUHC  * CLA4 CLAFAC  - CIA 
CKwfL  = l./(2.1A*FF4CEf AC*AR)  - 

IF  (XFPIN'T(29)«FC«1) 
lWelTt(A>j.llO)  Fir-Vl,  Firv?>  PIOUS* 
CONTINUE 


CLAM1 

EFE2 


A) 

A) 


l./(2.1A*EF4AP) 

CLAFAC*  C E F AC*  CCLAUC*  DKFCL 


CL*  CC*  ANT  CM 


0 4 4 ***  44  4 44  44  444  EON  E F F F CT  S ON  UNTF  IN NET 

04444*4444444444  CAUSED  EY  DAMAGE 

C 

PC  LA  » DCLAl4rClA?m*rClA2(?)+rCLATm4CfLAT(?)4DCLAHC 
PY  AC  - CYAC1  + C Y A C 2 ( i ) + PYAC212) 

ok  = DKi  » r k ? ( i ) * r «< ? c 2 > * ckfgl 

IF  ( K PR  I VK  2 9 ) . I 0. 1 ) 

1UR fTE (6*lv7o)  PCL  A * OYAC*  DK  » (FCl A ( I ) * I . 1,6) 


44444444 

»444*444 


CALCl'LATc  UNTRTMNFD  LIFT,  DRAG,  ANT  MPNENT 
Fpo  THE  PAUfFp  AIRPLANE 

CLAP  = CLA+OCIA 

IF  (KPPIA'T  (2°),FC.l) 

1VF J T c (6*1096) 

CO  150  I « 1*  NCL  A S 

YO.  I = CLA  * (AlPU)  - A L C ) 

YCl.?  - CLAP*  ( ALP  ( M - ALO 

cmn  • CL(I)  + (XCIP  - YCL) 


YfLT  « CIA  4(A'.F(I)-ALC) 

YCC  « YK  4 YCl * *? 

YCOT  * XK  + Yf L T * * 2 

COT  AIL  * YCD  - XrPT 

CALL  LNTP(CLPd)*  CCY*  Cl*  CC,  N C l A S * A) 
CPP(I)  * COY  + CCONIN  4 0K4CLP(I)**2  ♦ CCTAIL 


4 (CCLAT  (1HPCLAT  (2)  ) * ( At  F ( I ) -HST  AP  ) 


CLVNGP 
CV'W  INC* 
CMT  A I L 


(ciAW^rri  Ai*raA?(i)  + ocu?(2)4  pciaeo)  * (aipu)-alc) 

(ALF(I)-HSTAF ) ♦ YH/C^AC 


- CLVNGP  ♦ DAC 
■ ( DC  L A T 1 1 ) 4 DC  L A T (2)  )* 


cm  INTPECLPCIW  CKX#  CL,  CP,  NCLAS,  M 
CMP(l)  = C*X  ♦ CNVTNA  + CPTAIl 

j»,KfSJJK5;h[S})|,>£tjl|;aj|i|; 

150  CONTINUE 


SUPOC 


SVPCC  / 57.2956 


_ a r r i if.  _ A - AH  A . L t / t 1 u X » 


1C20  F P F f*  A T t 
1030  FPkRAT  ( 
1C35  CTFWAT ( 
103  6 Ff'fJ'AT  ( 
ICAO  F r-  ^ ^ A T ( 

1 c A 5 FCPI'  A T ( 
10  A 6 FORMAT ( 
1050  Fr^RATE 

? 

3 

ic6i  rnftfAT  ( 

106A1F0?,^AT  ( 


r c • : p t / p xva,  'VXr  'i  T v 
^ C L ^ 6 r*  # 6F10#<*>  />  iuX> 

+ Ct  API  F > C l A Q T r > CLAP  * *»  ?F.1C‘A> 


*,  7F8.A) 


•*> 


' «§!  till:  £&!  Ml  Wb  «?  ::;!?}8:{l 

{ cs^si’esss:  s»£  s;  * s *> 

4 i + » 3FC'»?>  A FA  . A > / > 1C‘X  > . 

fSCNlCNi  VP®K#  POTENT#  VC^TE*#  rCLAdl) 

^ ^ 1GV  1 5 *CB  Ap  1 » Cf?A<?2#  ET  Al>  ETA2#  XLF1>  XU?>  ♦> 

♦ f yAC?(l  ) * *>  ?PP»?T  . . 

.5tTMl  ** 

| * C"TA1L  C NX  CKP(I)  *#//) 

5FTLPN 

END 


SUopOl'T!KF  NTRIN(J) 


CCMNON 
connon 
r r k k o f 
connqn 
CONNGN 


1 

2 

■*, 

\ 


/INPUT/  4<3Cf.l) 

/DUTPIT/  p<?23) 

/CALC/  C(*C) 

/BLKFR  T / KFRINTt 50) 

/NUCOUT/  r ANCP(7,17),  $YN.(7,17)»  CCCNJN, 
ALP(21),  C L ( 2 1 ) » 00(21),  CM21),  Cl  T ( 2 I ) > 

CLP  (2  1),  C.  D P ( 2 1 ) , CNP(21),  CLTP (2 1 ) , 

RC  L A C *■  > , DXAC, 

CP0LL(21)>  Ct*P  T { 21 ) , X3(2>»  X4<2> 


CDT  ( 21 ) , 
C OT  F ( 2 1 ) » 


PINc'NSION  OV:TMC(?C-), 
ECUlVALfcNCE  ( 8 I A3 ) 
1 < 

2 ( 

3 ( 

9 I 

5 ( 

6 .*  ( 

7 * ( 

e , ( 

9 ( 


1 


A I A ) 

A(3)  , 

cm  , 
P (60)  , 

A ( 3Gt  2 ) , 

p <«£  ) 

P(Ifi) 

P(  1A<,) 

/ (27f  ) 


S Up(7, 30 

, cm 

, N»hT  ) 
, NPKLS) 
, b 02  ) 

AID) 


P ( A A ) 

P (At ) 

A(tq? ) 

r ( 2 ) 


cm 

ALPHA) 


ACL  AS) 
POP  ) 


rvu'c-d)), 

» CLAT  ) , 

> X ACV  8 ) , 

, XNACH)  , 

, V I N C ) , 

, (?(1C1 > , HSTAP) 


> 

, 

, 

(A (12)  >'cMAC  ) , 

( A ( 1 c A ) , SUP  (1,1)) 
( fooM  , ctr.p  ) 

( Pint ) , 

(At?)  , 

( 6 ( c 6 ) , 


XACS 
I P F F 
CLAV 


CALCULATE  T F JN “ FO  LIFT  AND  DRAG 
FOR  THF  CANAGFC  AIPCRApT 

IF  (KPPIKTI30) .FC.l) 

1VR  ITE(6,1U10)  XNACH  , CLAT,  CLDH,  XACVB,  XACS 
IF  (NHT.EC.O)  C-n  TP  PO 

CLAT  « CLAT  * ( 1 . C - ( OWING ( 1 A ) +CV INC (1 5 ) ) /2.C  ) 

CLCW  = CLCH  * (1.0  - (CV'INC  ( 1A  ) + CW  INC  ( 1£  ) ) /2.0  ) 

8C  CCNTINUr 

XACVt  » XACUP  + DYAC 
XACS  - XAC$  + DXAC 
IF  (KPPIAT(3(j)«c0.13 

1WP1TE (6,1020)  CLAT,  CLOH  , XACVE,  XACS 

XI  « (DWIK’G(Z)  40, A 4 rWIN-C-(?)  ) 4 FP2 

X2  « (OVlNG(e)  4 U , A * DVING(P))  * PC2 

* SUK(NPNL$41,1?)4  0,333  ♦ SUF(KPMS41,10) 

X 6 * X5 

IF  (K PRINT (30). EC. I) 

1VR1T6 (6,102?)  ( BCl A ( I ) , 1-1,6),  X1,X2,X3(1),X3(2),XA(1), 
2 XA(2),XSX6 

TO  100  1 « 1,  NCLAS 

ALPHA  - ALP(I) 

1 1 (IREF.bC.l)  ALPHA 
CL1  * CLP(I) 

C01  * CCP(I) 

CALL  TPFG(OClT,ncm 
IF  (K'PPIM  (?0)  .EO.l ) 
lWPITt(6,1020)  ALPHA,  CL1,  CC-1 

CALCULATE  peac-  that  RESULTS  FFCN  TPIHt'IAP  CL  T 
RCLLING  HONE  NTS  c F C H ASYNNETP 1 C F A N A G L PN 
VI  KG  L.E.  , T.E.  , OR  T1F 

ROILING  NON F NT  n.’E  TO  PAMAGEC  L.F. 

PC  L 1 « FCLAU)  * (ALF(I)-ALC) 

CF0LL1  « PC  LI  4 (XI  / (2.  *P02)) 

IF  ( HV  INC (fc ) .FO.2.0)  CRFLL1  * -C2CLL1 
IF  (DVlNG(6).tC.3.0>  CPCLL1  * C.O 

FCLLING  NCNENT  DUF  TO  WAGED  T.F, 

RCL2  « RC  L A ( ? ) * ( A l P ( I ) - A L 0 ) 

CF0LL2  * kCL2  4 ( X 2 / (2.  4 f-r-Z)) 

IF  ( 0 V I K G < 1 0 ) « P C , 2 , 0 ) CRpLL2  « — C R C L l ? 

IF  (0VJNC(I0).fcC.3.(>)  f POLL 2 • 0.0 


ALPHA  4 WINC 
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00*100  oo  ooo  oo  ooo  ooo  ooo 


■SB 


POKING  KOKENT  PUF  TO  t E FT  UING  TIP  K 1 5 S I K G 

rcl3  * scla(?>  » lUPtn-nn 

CLVINC  « (CLAW/2.)*  ( A I.  F ( I ) -A  L 0. ) 

CPi-f.o  « fiviNG  ♦ yam  / <?.  *po2) 

(ClV,nr,-»PfL3>  ♦ X3(2)  / (2.  *BC?) 


C P ON  0 « FLUNG  ♦ 

CRO  » (CUnrw5fL 
CPCLL3  « CPO  - CPLN'D 


POLLING  POm-TS  DUF  TC  RIC-HT  TIP  KISS  TNG 
PCL4  « kCLAU)  * (ALP(I)-ALC) 

CLW1NG  * (CLAV/2.J4  ( A L P ( 1 )-/  l C ) 

Ccl!ND  « - CLVING  4 > A < 1 ) / (2.  ♦PC?) 

CRt  * -If  LV1NC-+PCLG)  ♦ X A C ? ) / (2.  *RT2  ) 

CRC-LLA  * CPC  - CP UNO 

ROILING  NPVENTS  OLE  TO  LFFT  HCPIZ.TAH  AFEA  KISSING 
PCL5  * PCLA(5)  * ( A L P ( I ) -H  ST  A P ) 

C KC-LLE  - RCL  5 * (X5  / (2.  * P G2  ) ) 

RCLLIN'ft  ROKFSTS  OLE  TO  RIGHT  NCR  7 7 *T A II  A FEA  KISSING 
PC  Lf  * RCLA(6)  <■  (ALP(l)-HSTAP) 

CRC-LLfc  » -RfLfc  * 1X6  / (2.  *002)) 

Tub  TPTAl  POLLING  RGKFNT  IS  OF  FI  NEC  A S I 

CPOLKU  *=  CROll  l+f«PLL2  + CRCLL3  + CRf:Ll<f*CPrLL5  + CRrtL6 

IF  ( KPR  1NT  < 2C  > . FO  . 1 ) 

IV  RITE  (6*1  GAG)  *ni  * R0L2  * Pfl3  * P f L A > POL*  * PU6  * 

2 C R 0 L L 1 > CRCl L 2*  CPCLL3*  CFCILA*  CrciL5*  CFOLLA* 

3 C R f I.  L (I) 

XBAP  • UV I N’G  ( 13  ) * FC2 

OELTA-CL  P ECU IRF.0  CN  TP  INKING  DEVICE  IS 

CLRT  « A3S  ( ( CROLLI I ) 4 2.0  * S 02 ) / XPAR  ) 

PFSULTIKG  CP  AG 

CC c T (I.)  * CL  FT  * TANULPU)  / 57.2957) 

CALCULATE  TOTAL  LIFT  AND  CRAG  FOR  THE  TANAGFC  AIRCRAFT 
INCLUDING  PITCH  AND  ROLL  TR  IK 


Cl  TPI  I) 
COTP ( I ) 


CLP(T)  + PC  I T 

COPII)  4 DCOT  ■»  CDRT(I) 


IF  IK  PR  1M  (30)  .FO.l ) 
iWRITE(6*lC5C)  CIPU>»  PC  L T*  CLTMI)* 

3 rnp(I),DCCT*  CrPTO)*  CFTp(l) 

100  CONTINUE 

' 1 C 1 0 FrRKAT(iHl,//,lf X/+CUKP  FP  OK  SL^POLTINf  )TFTK,  MACH-** rc .2* //* 31 >» 

1 *C  l A T C L PH  XACVP.  >ACS  4*  /*  It  X* 

2 *FOR  UNPAKAC-FD  A/C4,  AF1C.3) 

1020  Ff.RKAJ  ( / * 10X * 4F Ck  CAKAGEO  A/C4*  AF10.3) 

1C  2 5 FfRKAKA  * 5X, 

1 * RC l A ( 1 ) * PC  L A (?)  * R C L A ( 3 ) > F C LA  ( A ) * FCIA(5)*  P C l A < A- ) *4* 

? 6 F p , 3 * / * 6 X * 

3 + X1*  >2*  X 3 ( 1 ) * >3(2)*  XA(1>*  XA(2)*  >5*  Xf  *4, 

A C Ff  , 3* / ) 

1030  FORMAT ( / » 22  X , *A  LPHA*  CL1*  CPI  » ♦ * FI  0 . * * t F 1 P . 5 ) 

10  A C FCPMTI  * 5 X * 

1 * PC  l ) * R CL  2 * RCL  3 * FCIA  * FCLS  * RC  L 6 » + 

2 t fp.3*/*  5X* 

2 * C R C L L 1 * OF  Cl  l?  , CRC-113  * CRCLtA  * C RCL  L 5 , C?fLlA  «* 

A fcFc,?*/*  )0>*  *TCTAL  RULING  K PN  E N T * CPLLl(I)  «»>F3G.35 

1C5G  FGRKATI  10X**CLPm»  P-CLT*  CLU(I)*  » **  3F1C.A*  / * 

2 1 CX  * 4CCP ( I ) * CCDT*  CCRT ( I ) * CDTP(I)  « 4*  AF10.5) 

FETLPN 

END 


c 

c 

c 


SUBROUTINE  WR  I TF  2 ( J ) 


CPKS'.CK 

CO^ON 

cr-N'ON 

COMMON 


PRINTS  FINAL  RESULTS 

/ I f-  P L.  T / AOOP1) 

/FUTIl/  TITLr(f) 

/a  L K P ? T / KPP1MK5J) 

/NLCOl 1 / CANCr(7,17),  SYR ( 7/ 17 ) , DCrNIN, 

A L P ( 2 1 ) / Cl  (21)  > C L>  ( 2 1 ) / CNdl),  CIT(21  , 

c l p < ? ) ) , rrM2i)»  c « p ( 2 1 ) , r n p ( ? l > > 

BCLA(6),  DXAC  / 

CFOLLdl),  C C F T ( 2 1 ) / X3(2),  XA(2) 


CCT(?1  ), 
CD  I F (21)/ 


niPfNSIDN  FNSldfdOd'FALPT  (21  d'EALPPd)  ) » PALPTP  

E C f‘  P ( 2 1 ) , FCCT(21),  ECOP(?l),  ECCTPdl)/  FCROIM21) 


EPLI VALENCE 


(A  (ASS) 
<A(AC?) 


FKSl:PV(l).  ).  ( A ( API ) , N S 1“  P V ), 
KLAS)  > (A  (22)  , I TP  IN) 


CL ( I ) , 
CMI), 
CD(I  ), 
I = 1, 


If  (KFR]NT(31).f0.1) 

1 VP  1 TE ( 6/ 3GCO ) ( AL  P ( I ) » 

2 
3 
A 

IF  <miNTC31).F0.1) 
lWFITS  <6#  3010) 

XN’ACH  * FMSl'PV(J) 

VRITE ( 6 / 2 C C 0 ) ( 7 I T L E ( I ) > I - 
1*3  ITS( 6/  2Clu  ) Xv  ACH 
Ve  ) T F l 6/  2 (.  20) 

VPITF(6,?C30) 

INTERPC’LATE  ON  DATA  FOP.  VALUES 
DC  100  1 « 1,  NCLAS 


CLPH  ), 
C,*B(  1 )> 
CCP(1  >, 
NCLAS  ) 


1>  fc) 


CLT ( I )# 
COT ( I)> 


CLTP (I  )> 
CCTPd  ), 


100 


CALL 
PAH 
CALL 
CALL 
C / l L 
r A 1 l 
r.AU 
CAM 


LNT°  ( 
IMP  ( 
IMF  ( 
IMP  ( 
LMF< 
IMP< 
l NTP  ( 

LMP( 


CONTINUE 
DC  liO 
OALP 
DC  P 
OCDL 

ccr  tgt 


c l ( i ) , 

a n ) , 

C L ( I ) / 
Cl  (1 ), 
Cl(I)> 
CL  ( 11/ 
CL  ( I ), 
CL  ( 1 ), 


FALPT  (I ) 
E/LPPd  ) 
FHPTF(J) 
FCA  P(  I) 
ecoTd) 
c C D P ( I ) 
FCOTPd) 
FCPOL  L(I ) 


CF  C/TA 

AT 

EVFN  CL 

CLT 

9 

ALP 

; 

NCLAS/ 

a. 

CLP 

9 

ALF 

9 

f-CLAf/ 

A| 

CLTP 

9 

ALP 

9 

NCLAS, 

A 

CLP 

9 

C'-'P 

9 

N’C  1 AS/ 

A 

CLT 

9 

COT 

9 

NCLAS/ 

A 

CLP 

9 

f r F 

9 

NCLAS/ 

A 

CLTF 

9 

C D T P / 

NCLAS/ 

A 

C L f 

/CPCI  L 

9 

NCLAS/ 

A 

I 


- It  NCLAS 
EAIPF(I)  - ALP ( J ) 
ecppd)  - cm- d) 

ECOF  m - CD ( I > - DC DM IN 
rCOvIN  + CCDL 

V-  P ] T F ( 6 / 2 0 A 0 ) Cld),  A L P ( I ) , f V ( I ) , C D d > t r A l PP  ( ])  , FrNP(l), 
DAL  P/  CCN,  ECPCLL(I)>DCCMN  > CCDL/  CCHOT 


1 ECCP(I>, 

110  CC.NTmr 

IF  dTRIN.EC.l)  C-C  TP  1 3C 
UPITF (£f 2050) 

WRITE (6/2020) 

Vr<  I TF:  (6/2060) 

DO  12C  ) • 1/  NCLAS 

OALPT  « EAlPTPd)  - EAtPT(I) 

CCDL  = EC DP (I)  - CD  ( I ) - rrCMlN 
rccTOT  * cCCTPd)  - Fcrid)  _ 

CrTP  I N « DCCTPT  - OCCMN  - OCOl  - CDRTd) 

NR  l TF  (6/  2070)  Cl  ( I ) / FAl?1(I),  ECHO)/  FALPTPd)/ 
1 DALPTz  CCTFIN/  CDRT(I)/  CCCMN  / CCDL , “ 

120  CONTINUE 
130  CCNTINLF 

2 CoO  c fR  RA  T (1H1/  AOX/  A 1 C ) 

(/  sjy,  OAfH  » *,  fC 


FCCTKT), 
CCDTOT 


2C10  F p c k' A T 
1 

2C20  F (IP NAT 
1 
2 
3 

A I *~ 

5 

6 


/ 5 

*L  N 
( 3 A X / 


T o I K V , , 

*>■*/?>/  *l'NDANAC-f  0*, 
♦INCFLNfNTS 


*x+»iix»  .. 

*YU  It  I A X, 
* 


*y 


//,  33  X/ 
p C r Y N A N 
KX/  ♦)*/ 

CDF;  T f M'CtBAF 


2 6>, 

* 


*X  C-FLTA 
Of  LTA  X 


+ ) 


delta 


X 

*,  / / 1 A X / 
DELTA 


If  DATA*) 
*CAMAC-E0*/1C'X/ 
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